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1.0 INTRODUCTION 


It may be desirable to monitor the response of structural systems for various purposes. One 
such purpose may be to monitor stability in order to predict and/or avoid the onset of certain types 
of pathological behavior; for example, flutter. Another purpose might be to examine information 
such as frequencies, damping, and response of critical modes. Furthermore, on-line monitoring 
may be required for detecting structural damage or, conversely, verifying structural integrity. 
Adaptive on-line control also requires the monitoring of structural response and characteristics. 

Monitoring structural characteristics is not, however, as straightforward as one might expect, 
particularly if the goal is real-time, on-line monitoring of slowly time-varying systems with 
unmodeled dynamics, unknown external forces, rapidly changing control forces, and various noise 
sources associated with real measurements. 

Structures for which this study is applicable include those whose equations of motion couple 
with those of aerodynamics or hydrodynamics, where the characteristics of the fluid ( e.g ., 
pressure, velocity, etc.) may change, causing an effective change in the structural dynamics. Two 
very different structures that may exhibit such behavior are aircraft and offshore platforms, as 
shown in Fig. 1 . 

The efficacy of modal filters for monitoring some structural systems was demonstrated by 
Freudinger (1990, 1991). The applicability of this method to slowly time- varying structures is 
examined below, followed by a similar examination of several system identification methods, 
especially /f^-based identification, and the recommendation of a two-stage adaptive monitoring 
scheme. 



The Heidrun tether-leg platform 
(350m deep, North Sea near Norway) 


Figure Is Two examples of structures that may vary slowly in time due 
to coupling with aerodynamic or hydrodynamic phenomena. 
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2.0 REVIEW OF PROPOSED RESEARCH OBJECTIVES 

The dynamics of a linear structural system can be represented in a general manner as 

Mx + Cx + Kx = f = f* + f„ (1) 

where x denotes the n generalized degrees of freedom and f is a forcing term that can be decom- 
posed into known and unknown parts, f k and f„ , respectively. The known f t may include forces 
that are generated by control actuators, forces due to acceleration, and in general forces that can be 
directly measured. The unknown f u consists of unmodeled and unmeasurable exogenous distur- 
bances (e.g., forces due to turbulence, wind gusts, etc.). Furthermore, it will be assumed that the 
mass, damping, and stiffness matrices (M , C , and K , respectively) are slowly time varying; that 
is, they change slowly with respect to the dynamics of the structure. 

In most real-world situations, a limited number of sensors are available to collect data. 
Moreover, sensor noise is invariably present, corrupting the measurements. Therefore, in general 
the measurement equations can be described by 

y = Gz + V (2) 

where G is an n 0 x In matrix, n D denotes the number of sensors, z = [x T x T ] T the states of 
the system, and V the measurement noise. The basic objective of the proposed research was the 
construction of algorithms which identify and isolate the modes of the system under arbitrary con- 
ditions (e.g., an aircraft while in flight) based on a limited number of noisy measurements. Figure 
2 shows a block diagram representation of a system using such monitoring algorithms. 

There are several additional requirements that must be addressed for a monitoring algorithm 
to be useful in a real-world problem. The first is that on-line monitoring is typically restricted to 
less extensive, and often less accurate, testing than a baseline or laboratory test. This may include 
a limitation on the number, location, and types of sensors. For example, an aircraft can be instru- 
mented thoroughly in a ground test, but in flight one is generally limited to sensors inside the 
aircraft or embedded within the aircraft structure itself. Additionally, limited data acquisition 
hardware may further limit the available sensor array. 


V 



SDOF 

Modes 


Figure 2: Block diagram representation of the structure and filtered output. 
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Available computational ability is generally different between laboratory and real-world envi- 
ronments. This certainly must be considered since identification of a complex structure can be 
computationally intensive. Of course, given a specific level of available computing power, there is 
generally a trade-off between accuracy of any identified structural parameters and the speed at 
which those parameters can be updated to track a changing structural system. 

There are, then, four basic objectives: 


1. Investigate the applicability of reciprocal modal vectors to the problem of on-line 
identification and monitoring of slowly time-varying structures. 

2. Explore the various //^-based identification algorithms and evaluate their 
usefulness in on-line monitoring. 

3. Analyze methods of modal filtering using other identification algorithms to 
monitor slowly time-varying structures. 

4. Recommend a strategy for on-line monitoring that is robust, accurate, and 
implementable. 
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3.0 SPATIAL MODAL FILTERS 

Freudinger (1990, 1991) and Shelley (1991) demonstrated the efficacy of the concept of 
modal filtering via reciprocal modal vectors. They showed that the reciprocal modal vectors 
perform precisely as modal state observers, that the observer can be constructed from purely 
experimental data, and that the resulting transformation is relatively insensitive to certain stiffness 
and damping parameter changes that preserve the structure of the transformation. This appears to 
hold for data of reasonable quality, even when the input forces are unknown. 

However, difficulties arise when perturbations in the identified system parameters, as would 
occur in an aircraft in flight, affect the transformation. Furthermore, the closed loop behavior of 
the system may be considerably different from the open loop behavior observed in baseline labo- 
ratory test and from which the transformation is derived. Hence, the transformation will, in 
general, not be preserved. 

Thus, while the concept of the modal state observer has been demonstrated, questions remain 
regarding its use for identification of systems having significant uncertainty and/or time-vanance 
in their physical, control, and input parameters. In order to evaluate the degree of usefulness of the 
reciprocal modal vector method, its development and theoretical basis will be examined. 

3.1 Development and Use of Modal Filters 

The modal filter finds its roots in the distributed parameter derivation of spatial modal filters 
by Meirovitch and colleagues in the 1980’s (Oz and Meirovitch, 1983, 1984; Meirovitch and 
Baruh, 1982, 1985; Meirovitch and Ghosh, 1987). The extension to experimentally-determined 
modal filters was done by Allemang and colleagues in the early 1990’s (Zhang, Allemang, and 
Brown, 1990; Freudinger, 1990, 1991; Shelley, 1991). A summary of these derivations is given 
below, followed by that of an ideal modal filter. 

3.1.1 Analytically-Derived Spatial Modal Filters 

The basic spatial modal filter derived by Meirovitch (Meirovitch and Baruh, 1982) can be 
summarized as follows. A self-adjoint (undamped) distributed parameter system can be described 
by the equation of motion 


p(») *ffi-3 + L k w(x, t ) = fix, t),xe D (3) 

where w(x, t ) , p(x) , and /(x, t) are displacement, density, and force, respectively, at a location x 
and time t, and L K is a linear differential stiffness operator. The system is subject to some 
boundary conditions 


L f w(x, t) = 0, x e dD, i = 1, ..., p ( 4 ) 

where L ( are boundary operators. The associated eigenvalue problem is given by the differential 
equations 
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L*W r (x) = X r p(x)W r (x), xe D 
LjW/x) = 0, i = 1, p, xe dD 


r = 1,2,.... 


(5) 


The solution consists of an infinite set of eigenvalues X r and associated eigenfunctions W r (x) . 
Since it is assumed that the stiffness operator L K is self-adjoint, and further assuming that it is 
positive definite, then the eigenvalues are all positive, can be ordered such that X x < Aj < . . . , and 
are related to natural frequencies by X r = co? . Also due to the self-adjointness, the eigenfunc- 
tions are orthogonal and can be normalized such that 


jp(x)W r (x)W s (x)dx = S rs (6) 

D 

The system response can then be given by a weighted infinite sum of the eigenfunctions 


w(x, t) = ^7] r (t)W r (x) (7) 

r = 1 


and the problem, when substituting (7) into the original equation of motion (3), simplifies to an 
infinite number of second-order ordinary differential equations in the modal coordinates 

ij r (0 + 0)?T] r (t ) = f r (t) , r = 1, 2, ... (8) 

where f r (t) is a modal force given by 

m = J w r (x)f(x, t)dx (9) 

D 

The modal coordinate ri r (t) can be found in terms of the displacement w(x, /) by multiplying (7) 
by p(x) W s (x) , integrating over D , and using the orthogonality relation (6) to get 


T] r (t ) = Jp(x) W r (x)w(x, t)dx (10) 

D 

Thus, modal displacements can be determined from the physical displacement of the system. 
Meirovitch recognized, however, that discrete sensors are the most common, so the distributed dis- 
placement can be estimated, w(x, 0 , by fitting eigenfunctions or other interpolation functions to 
the discrete measurements. This interpolation could also be done using Rayleigh-Ritz or finite 
element methods. 

Meirovitch used this development to derive independent modal space controllers for various 
problems, including flutter in a very simple bridge model (Meirovitch and Ghosh, 1987) and 
vibration in a simply-supported Euler-Bemoulli beam (Canfield and Meirovitch, 1994). 
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3.1.2 Experimentally-Determined Modal Filters 

The Enhanced Frequency Response Function (EFRF) technique developed by Allemang 
(1980) included the basics of the reciprocal modal vector method, though he did not denote it as 
such at that time. The EFRF technique took weighted sums of frequency response functions 
(FRFs) to attempt to enhance the amplitude of a mode of interest to better estimate the mode’s 
frequency and damping with single degree of freedom (SDOF) parameter estimation methods. 

This method was modified by Zhang, Allemang, and Brown (1990), called the Reciprocal 
Modal Vector (RMV) method, to determine the best weighting coefficients such that the resulting 
frequency response most closely approaches that of a single degree of freedom system. The 
extension to multi-input systems was done by Freudinger (1990, 1991), facilitating the use of 
additional knowledge gained by multi -reference data. Some formalization was done by Shelley 
(1991), renaming the method the Modified Reciprocal Modal Vector (MRMV) method. He inves- 
tigated the existence and uniqueness of the reciprocal modal vectors and found that they are not 
always unique, depending on the number of sensors and other system parameters. Experimental 
evaluation of the RMV and MRMV methods was performed by Freudinger (1990, 1991) and 
Shelley (1991). 

In its simplest form, the Reciprocal Modal Vector method can be stated as: 

Determine the coefficients of a linear combination of transfer functions from one 
input to all sensor outputs that results in a minimal difference from a single degree 
of freedom transfer function with a given pole pair, where “minimal” is determined 
in a least-square sense. 

Shelley does study the issue of spatial distribution of sensors sufficient to accurately determine 
modal response. It must be noted also that the method requires that the system be classically 
damped. A review of the single-reference development by Shelley (1991) follows. 

The transfer function from the q th input to displacement sensor outputs for a real normal 
mode may be given by a partial fraction expansion 


a,«») = X 


r - 1 ■- 


%QA 


<!<■ 


i(0- X r 


ico-X* 


( 11 ) 


where X r and X * are the complex pole pair corresponding to the r th mode, <j> r is the associated 
eigenvector, (f> qr is the modal coefficient of the r th mode at the q th excitation point, and Q r is a 
modal scale factor. (If the real normal mode criterion is relaxed, the second term in (1 1) will have 
additional * terms, where * represents complex conjugate.) It is then stated that a reciprocal 
modal vector exists and can be scaled such that 


V74 KQJqr = ~ iS , 


-i, r = s 
0, r =£ s 


( 12 ) 
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This is essentially an orthogonality relation, where the reciprocal modal vector for one mode is 
orthogonal to all eigenvectors but the one corresponding to the same mode. Premultiplying (11) 
by Y/ gives 




y W,Q,*„ 

^ ico-X r 

r= 1 L r 


V?*rQrK ' 

i i(0- X* 


(13) 


Simplifying by using (12) causes all terms but r = s (i.e., all terms but that for the 5 th mode) to 
drop out, leaving 




— i i 

i(0-X s io)- A* 


If (14) is evaluated at m distinct frequencies, a matrix equation can be written 


H^(0 2 ) 


... 

H n.W 


i(O x - A r 4 io), - A* 

-i , * 


Vr = - 

ia) 2 -X r ' i(o 2 -X* 

7 

* ^ 

i 

■9-v . 
£ 




-i i 

4- 


I icD - A + ico - A* I 

^ m 7 m r J 


(14) 


(15) 


where each column on the left hand side is a transfer function from one input to an output. This 
can be written more compactly as 


ft, 7 = P, (16) 

The solution for the reciprocal modal vector \|f r is not unique if the number of sensors n 0 is 
greater than the number of effective modes of the system. A unique minimum norm solution, 
however, may exist and can be found by using a pseudo- inverse ( e.g ., a Moore-Penrose general- 
ized inverse), denoted by ( ) + 


V, = [ (17) 

The elements of \|f r computed in this manner are generally complex numbers, but for real 
normal modes, this does not make physical sense. Thus the reciprocal modal vector may be 
restricted to the closest real solution by replacing (17) with 
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(18) 


Re Hj 

t 

Re (I,' 

ImfiJ 


Im P r 


The extension to multi-input reciprocal modal vectors was done by Freudinger (1990, 1991) 
and can be computed by replacing (17) with 


r " 

V, 


ft] o o - o 

t 

p/ 

A A 

_ 02r/ 01 r 


ft] p r 0 ••• 0 


0 

' -03r/01r 

* — 

hJ o p r 0 

< 

0 ” 

• 

' 

: : : 


o 

01 r 


ft] 0 o ... p r 




(19) 


where Hj is the FRF matrix from the q th input to all sensors at the m frequencies, and <p sr is the 
element of the eigenvector 0,. which corresponds to the 5 th input degree of freedom. A method 
similar to that in (18) can be used to restrict the solution of (19) to non-complex solutions. 

Removing the restriction of using displacement sensors in the above derivation can be accom- 
modated by redefining the SDOF frequency response function /J r (ft>) as 


P r (co) = - — 1 ~y- + 

ico- X r i(o- X r 

displacement 

PX(Q) = 7- + 7 ;, 

ico- A r i(o- X r 

velocity 

a , , i CD 2 . -ico 1 

p r ((0) = r + r „ 

ico — A. ico — A 

acceleration 


( 20 ) 


This method has been applied to the active modal structural control of a 250-foot span steel 
truss bridge in Ohio, resulting in a 75% decrease in bridge response (Shelley, Aktan, and Lee, 
1994; Shelley, Aktan, Brown, and Allemang, 1994; Shelley, Lee, Aksel, and Aktan; 1995). 

3.1.3 The Ideal Modal Filter 

Consider the n degree of freedom system given by 


Mx + Cx + Kx = f 


( 21 ) 


This could be a lumped mass or spatially-discretized distributed parameter system, perhaps dis- 
cretized via a Rayleigh-Ritz or finite element formulation. The n eigenvalues and eigenvectors of 
the undamped system can be found via the generalized eigenvalue problem 

K<J> r = (0?M$ r (22) 
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Premultiplying (21) by <B T , the transpose of the eigenmatrix 


* = 4.1 


( 23 ) 


and substituting x = Oil gives 

<D T M<I>i} + ® T C3>ii + = 0 T f (24) 

Assuming classical damping (which here is equivalent to assuming that the damping C is a linear 
combination of the mass M and stiffness K ), the system will decouple into n single degree of 
freedom equations 


i) r + 2^ r (o r f} r + Q)jr] r = r = 1 

and furthermore, <> T = <X> _I such that 


(25) 


T) = $> T x (26) 

which implies that there exists a vector c r such that 

n r = C Jx (27) 

Thus, measured displacements x can be converted directly to the r th modal displacement r\ r . 
Similarly, modal velocities x or accelerations x can be converted to modal velocities fj r or accel- 
erations fj r . If M and K are known and all generalized coordinates are measured, then the exact 
reciprocal modal matrix is <I> T . 

Given the transfer functions G pq (0 ) ) from f to x p , then there should exist a c r such that 



G Xq i(O x ) 

G 2q (co l ) 


G (to,) 
»«? v ^ 

G ^ = 

G lq (co 2 ) 

G 2q (^ 2 ) 

... 

G (co,) 


G lq (co m ) 

G 2q {(o m ) 


G„ ,X(o m ) 

n „<Z v 


l 

l 

id) j - A* 

ici) l - A r 

i 

i 

* v. 

I 

€ 

*««•* 

•• 

. 

£ 

l 

i 

i 

* ^ 
l 

£ 

i 


(28) 


where A r and A* are the complex poles of the r th mode (i.e., A r , A* = - £ r a> r ± ico r [ 1 - Q ] 1/2 ) 
and P r is a constant (-2 (O r [ 1 - Q ] 1/2 ) multiplied by the transfer function from f q to modal dis- 
placement T\ r evaluated at the m frequencies. If m = n a (and is not singular) then c r can be 
computed directly using 


c 



(29) 
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Otherwise if m>n 0 (i.e., there are more spectral measurement lines than degrees of freedom), a 
least-squares approximation can be found using a pseudo inverse 


c r = G;p r (30) 

If the transfer functions G pq ((0) are instead from f q to x p or x p , then the right hand side fJ r 
should be modified as in (20). 

3.2 Modal Filter Software Development 

A number of Matlab® programs were written to facilitate the analysis of the Modified 
Reciprocal Modal Vector method. Primary among these is mrmv.m, which is based on that 
published by Shelley in his Ph.D. disseration (1991), but was reworked for two reasons. Shelley’s 
code was written as a Matlab® script which is compiled and run line-by-line, it has been 
replaced by a function which is compiled the first time it is run within a Matlab session and 
subsequently runs significantly faster. Further improvement was made by removing many 
confusing options and significant user interaction, leading to a yet more efficient and readable 
code. The necessary options are still available via arguments to mrmv. 



Figure 3: MRMVTool: a graphical user interface for computing the reciprocal modal vectors. 


Spatial Modal Filters 


14 







In order to make the use of mrmv easier, a graphical user interface (GUI) front-end, called 
mrmvtool, has been coded; a picture of this GUI is shown in Fig. 3. 

These programs, as well as most of those used in the following section to evaluate MRMVs, 
are included in the Appendix. 

3.3 Evaluation of Modal Filter Usefulness in On-line Monitoring 

To evaluate the usefulness and limitations of the reciprocal modal filter method, the six degree 
of freedom, six-mode, lumped-mass structure shown in Fig. 4 is used, where sensors measure the 
absolute displacement of each mass. The effectiveness of the modal filter method is checked by 
computing the reciprocal modal vectors from a baseline system in which all of the masses, 
dampers, and springs are identical; i.e., 

m i = m, c ( = c, k i = k, i = 1, ...,6 (31) 

To simulate an ideal, zero-noise, situation, the exact frequency responses of this system to inputs 
to each mass are used to compute the matrix of reciprocal modal vectors. The computed recipro- 
cal modal matrix is 


ur 

computed 


0.257782 

-0.456509 

0.550656 

-0.518654 

0.367834 

-0.132748 


0.456509 

-0.518654 

0.132748 

0.367834 

-0.550656 

0.257782 


0.550656 

-0.132748 

-0.518654 

0.257782 

0.456509 

-0.367834 


0.518654 

0.367834 

-0.257782 

-0.550656 

-0.132748 

0.456509 


0.367834 

0.550656 

0.456509 

0.132748 

-0.257782 

-0.518654 


0.132748 

0.257782 

0.367834 

0.456509 

0.518654 

0.550656 


(32) 


The norm (largest singular value) of the error ('F computed - 'F exact ) is 1.7821 xl0“ 13 and the 
maximum absolute value of the elements of the error is 1.2545xlO r13 ; thus the reciprocal modal 
vectors are nearly perfect. 

This modal filter will then be used to try to decouple the exact transfer functions of the 
system, with several modifications. Experimentally-measured transfer functions will, of course, 
include some noise, and the performance of the modal filter would be expected to be somewhat 
degraded. Thus this noise-free simulation is a best-case scenario and can be considered an upper 
bound on the modal filter performance. 



Figure 4: A simple 6 degree of freedom system. 
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The first system modification to be tested is where all of the masses change by an equal ratio 

m i = flm (33) 

The modal filter effectiveness is impervious to such a system change, as can be seen in Fig. 5 
which shows the decoupled mode 6 (the other modes all decouple in a like manner). A similar 
effect is seen when the damping coefficients all change 

Cj = % c ( 34 ) 

such that the reciprocal modal filter also perfectly decouples the modes (Fig. 6). 

The same phenomenon does not, however, result when one mass changes. Figure 7 shows the 

attempt to decouple mode 6 when the 3 rd mass has changed sufficiently to cause small shifts in the 

frequency of mode 6. The corresponding phase plot is shown in Fig. 8, which displays the same 
rapid degradation of the modal filter effectiveness for even a few percent change in modal fre- 
quency. It must be noted that use of acceleration sensors improves the situation somewhat for 
mode 6 as can be seen in Fig. 9; but other modes display worse results using acceleration sensors 
rather than displacement sensors. 

The common thread throughout is that the reciprocal modal filter works fine when the 
modeshape has not changed. That this should be so is obvious from the derivation above of the 
ideal modal filter from the undamped equation of motion — the ideal modal filter is merely a 
function of the eigenmatrix of the undamped system. So it may be concluded that the modal filter 



Figure 5: Decoupled mode 6 when all masses change by an equal ratio. 
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transfer function magnitude 3 transfer function magnitude 



i: Decoupled mode 6 when all damping coefficients change by an equal ratio. 



Figure 7: Attempt to decouple mode 6 when one mass changes — transfer function magnitude. 


Spatial Modal Filters 


17 





8 





is useful for systems whose characteristics are unchanging, or at least whose modeshapes do not 
change. This criterion may be met by some structural systems, but it lacks the generality desired 
in this study. 

There are other practical limitations to the use of the reciprocal modal vector method for on- 
line monitoring of slowly time-varying systems. The reciprocal modal vector requires on-line the 
same array of sensors — the same number, location, and types of sensors — used to compute the 
reciprocal modal vector. Due to the fact that on-line monitoring is often restricted to a reduced or 
different array of sensors, this limits the practical usefulness of the reciprocal modal filter method. 

Another concern is the issue of uniqueness. The reciprocal modal vectors are not necessarily 
unique. Scenarios can be constructed in which computed reciprocal modal vectors are signifi- 
cantly shifted from the exact solution. In such situations, using filtered response may produce 
inaccurate results and non-conservatively estimate damage to the system or the onset of behavior 
like flutter. 

There is also concern about the accuracy of the poles used to compute the reciprocal modal 
vectors. If these pole estimates are poor, the modal filter will also function poorly. A more robust 
method is required. 

A method to accurately update the reciprocal modal vectors to reflect changes in system 
modeshapes would be ideal, but tracking eigenvector changes is difficult in general, and particu- 
larly so when less than full state information is available (Beck, 1996; Beck and Vanik, 1996). 

To summarize, the modal filter works well to monitor systems whose modeshapes are 
unchanging and that may be fully instrumented. However, to use the reciprocal modal filter to 
identify the modal poles of a time-varying system is fraught with difficulties in the general case 
where changes in the system will cause changes in the shapes of the modes, thus invalidating any 
response filtered by reciprocal modal vectors. 
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4.0 STRUCTURAL SYSTEM IDENTIFICATION METHODS 

There are several ways to classify the various system identification methods that are applica- 
ble to structural systems. One division is parametric vs. non-parametric identification; the former 
parameterizes the system, using a given model structure, with a finite number of unknown param- 
eters, whereas the latter typically models the system as a set of functions, generally the transfer 
functions themselves, and estimates these functions usually by correlation or spectral analysis. 
The focus here is on parametric methods since modal characteristics are of primary interest, and 
because non-parametric methods typically require input-output data, which may not always be 
available. 

Various frequency domain least-squares methods exist to match a parametric model of a 
transfer function to measured transfer function data. Such methods date back to the work of Levy 
(1959) who parameterized a continuous-time transfer function by the coefficients of numerator 
and denominator polynomials, whereas others have used Chebyshev polynomials ( e.g ., Adcock, 
1987). Improvements on these methods have had some limited success; for example, Sanathanan 
and Koemer proposed an iterative method (1963) that often arrives at a better solution, but is not 
guaranteed to converge. 

Covariance and singular value decomposition methods are another rough class of identifica- 
tion methods. This class includes the Eigensystem Realization Algorithm (ERA), developed by 
Juang and Pappa (1985), which uses a generalized Hankel matrix of the system Markov parame- 
ters to identify system parameters. This algorithm was later extended to handle auto- and cross- 
correlation data directly (ERA/DC) (Juang, 1994). Another method in this class is q-Markov 
COVER (Liu and Skelton, 1993), which under certain conditions produces results identical to 
ERA/DC (Peterson, 1993). The Frequency domain Observability Range Space Extraction 
(FORSE) method (Jacques, 1994) uses frequency domain data directly, and in the limit as the 
number of data points tends to infinity gives the same results as q-Markov COVER. The subspace 
methods, such as N4SID (Numerical algorithms for Subspace State-Space System IDentification) 
(Van Overschee and De Moor, 1994, 1995; Viberg, 1995), also fall into this classification. 

The requirements of H robust control have motivated recent work in H^-based identifica- 
tion. Such control algorithms typically require knowledge of the bounds on the uncertainty in the 
plant model, but most identification methods cannot provide this information to the control 
designer. 

Undoubtedly, the best-known class of identification methods comprises the various time- 
domain least-squares methods. These are distinguished from other methods by their ease of use 
and their implementation within software packages such as Matlab®. 

In the sections below, H ^- based identification will be examined in detail, followed by a 
cursory examination of the ERA method, the basics of time-domain least squares methods, and 
finally a brief comparison of a number of methods in light of the problem of on-line monitoring of 
slowly time-varying structural systems. 

4.1 H„-based System Identification 

Identification algorithms based on H x methods typically provide the bounds on plant uncer- 
tainty required for H robust control design. Most of these methods are rather similar; a typical 
derivation and two examples will be given below. 
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One dissimilar algorithm that deserves mention, is the Noise Perturbed Full State Info 
(NPSFI) algorithm (Didinsky, Pan, and Basar, 1995), which uses the cost-to-come method, 
developed to solve nonlinear H M optimal control and filtering problems, to identify uncertain 
plants that are linear in the unknown parameters but nonlinear otherwise. This algorithm, 
however, requires at least full state information (and in some cases full state derivative informa- 
tion), which effectively disqualifies its usefulness here since full state information is not generally 
available in on-line monitoring. 

4.1.1 Summary of Previous Work 

Many developments in the area of robust system identification have occurred over the past 
decade, highlighted by a Special Issue of IEEE Transactions on Automatic Control on System 
Identification for Robust Control Design (Kosut, Goodwin, and Polis, 1992). The general goal of 
this work has been to identify a system in the presence of noise and unknown plant dynamics 
using time- or frequency-response data of the system. Obviously, one desires that the error 
between the actual system and the identified system goes to zero in some sense. The recent work 
can generally be divided into two classifications: systems with (/) stochastic noise (e.g., white 
noise or filtered white noise), and ( ii ) deterministic noise with a bounded infinity-norm and 
unmodeled plant dynamics. Examples of the former approach can be found in Ljung (1987, 
1995). Several recent papers (e.g., Bai and Andersland, 1994; Partington and Makila, 1995a), 
including some in a special issue of Automatica on ‘Trends in System Identification” (Sbderstrom 
and Astrom, 1995), have analyzed stochastic least-squares identification with worst-case identifi- 
cation techniques and have shown that they are by no means mutually exclusive. 

One of the earliest references to the bounded deterministic approach is by Zames (1979), who 
used the theory of metric complexity to study issues related to die complexity of identification. 
The formulation by Helmicki, Jacobson, and Nett (1989, 1990a, 1990b, 1991c, 1991a, 1991b, 
1992), however, provided the concept of robustly convergent identification that is the real founda- 
tion for most of the current work in H ^- based system identification. Essentially, they developed a 
theory for the robust identification of a system in discrete-time based upon a finite number of 
frequency response measurements (that may be corrupted by noise); the resulting system approxi- 
mation converges in the sense to the real system as the noise and the number of measurements 
tend to zero and infinity, respectively. 

The algorithms of Helmicki, et al. fall into the categories of linear and nonlinear. The linear 
algorithms are less complex (and therefore less computationally intensive), but require tuning to 
certain a priori information about the unknown system (the convergence properties may fail if the 
a priori knowledge happens to be wrong). Untuned linear algorithms have been developed (e.g., 
Gu and Khargonekar, 1992a, 1992b), but they are not robustly convergent — in fact, Partington 
(1991, 1992) showed that no robustly convergent, untuned, linear algorithms exist. Linear H x 
identification methods can be made robustly convergent in the presence of noise by requiring a 
priori information; for example, Bai and Raman (1994) do so by incorporating a projection 
operator based on an assumed a priori knowledge of an exponential decay bound on the 
magnitude of the system pulse response (i.e., \h(k)\ < Mp k for k> 0). The utility of a priori prob- 
abilistic information has also been studied (Jacobson and Tadmor, 1993). 

Gu and Khargonekar (1992a, 1992b), and Partington (1992), building upon earlier work, have 
developed some rapidly convergent nonlinear algorithms. Many of these algorithms that were 
originally developed for discrete-time systems have been extended to continuous-time (Ak 9 ay, 
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Gu, and Khargonekar, 1993; Chen, Gu, and Nett, 1994; Helmicki, Jacobson, and Nett, 1990b, 
1992; Makila, 1991a). 

The relationship of these algorithms to the finite-dimensional approximation of infinite- 
dimensional systems was investigated (Gu, Khargonekar, and Lee, 1989), as has adaptive system 
identification based upon frequency response for various systems (e.g., Parker and Bitmead, 
1987a, 1987b). 

Identification in Z lt while not examined in this study, has been done, notably in several papers 
by Makila (1991b, 1992) and Partington and Makila (1995b). This may be worth additional study 
at some point, but it is expected that it will demonstrate many of the same advantages and disad- 
vantages in the context of on-line monitoring of (slowly) time-varying systems as the H x - based 
identification examined herein. 

4.1.2 The ff^-based Identification Algorithms 

Gu and Khargonekar summarized the H x - based system identification algorithms in two 
papers (1992a, 1992b). For simplicity, assume that the unknown system to be identified is single- 
input single-output (SISO). Further, assume that the unknown system is stable, linear, shift-invari- 
ant, and discrete-time, with transfer function H. The necessary information is N points of time- 
domain data, fi(JkT), k = 0, ..., N- 1 (where T is the sampling time; note that h(kT) is 
shortened to h (k) for convenience). The time domain data may originate in an inverse discrete 
Fourier transform of an N -point set of (noisy) experimental frequency response data in the form of 

ft(e 2 '^) = H(e 2 ‘ K ») + r\(e 2 ‘ n ") , j = 0, ..., N- 1 (35) 

where the noise vector is bounded, ||T||| — £, and where i = J— 1 . The inverse discrete Fourier 
transform may be defined by 


fi(jfc) = 1 Ny £fl(e 2iK he~ 2iniN ~ k) ^. (36) 

J« o 

The time sequence h(k) is assumed to be periodic both forward and backward in time, such that 
h(jfc) = h(k±mN) for any integer m . (Alternate formulations can accommodate a frequency- 
dependent noise bound by using a frequency -dependent weighting function (Helmicki, Jacobson, 
and Nett, 1991b) and non-uniform spacing of the frequencies by using an interpolation method 
(e.g., Akgay, Gu, and Khargonekar, 1992; Partington, 1993).) 

The problem then is to find an identified model F of the system H such that ||H-F|L is 
minimized and such that 


lim iH-f’IU = 0 

£ — > 0 
N — » °° 


(37) 


The algorithms by Helmicki, et al, Gu, Khargonekar, Makila, and Partington (see references 
above) can be divided into two categories: linear and nonlinear. The linear algorithms can be 
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divided into those that are tuned to a priori system information and untuned. The nonlinear and 
the tuned linear algorithms have been shown to be robustly convergent, but the untuned linear 
algorithm has been shown to not be robustly convergent (Partington, 1991, 1992), though its diver- 
gence is generally so slow that it is often useful. The untuned linear and the two-stage nonlinear 
algorithms will be summarized below. 

Untuned Linear Algorithm 

The untuned linear algorithm is quite simple. It involves taking a weighted, one-sided z - 
transform of the time sequence data 


f'unearfz) = £ w(fc, /l)fi(*)r* (38) 

k = 0 

where w(k, ri) is a weighting, or windowing, function. Some of the weighting functions that have 
been investigated (Gu and Khargonekar, 1992a) are spline, cosine, triangular, rectangular, trape- 
zoidal, and Hamming; these are described by the functions below (where 0<m<n<M<N ) and 
are shown graphically in Figure 10. 


" S pline(*’ «> = 



1, 

II 

O 

( K 
V kn 

• kn V 

Sin A? J ’ 

1 < |k| < n 


0, 

1^1 > n 


"coring") = 


cos 


kn 

2 n+ 1’ 


0, 


I k\<n 
|k| > n 


(39) 


"triangular^ «> = 


1-14, \k\<,n 

n 

0, |k| > n 


"Hamming^’ ^ = 


0.54 + 0.46 cos-, 

n 

0, 


\k\<" (40) 

|k| > n 


"trapezoidal^*’ ») = \ 


1, 

n - \k, - m\ 
n-m 

0, 


0<k< 2m 

m - n < k < 0, or 
2m < k < n + m 

|k - m\ >n 


"boxcar^’") = 


1, \k\<n 

0, |k| > n 


(41) 


The error for the untuned linear algorithm has been shown to be divergent as n tends toward 
infinity. The worst-case identification error (Gu and Khargonekar, 1992b) for a SISO system is 
bounded below 


inf ^ ||ff-£|L>r±logn + A]£-a n (42) 

admissible F Ltt J 

where A is a finite constant and { cc n ) is a sequence that tends to zero as n tends to infinity. 
However, logn is unbounded for n «> ; thus, the worst-case error is unbounded. If, however, 
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Figure 10: Windowing functions. 


the noise bound e and the required order n are small enough, in practice the results of the linear 
algorithm are often quite close to that of the nonlinear algorithm (Gu and Khargonekar, 1992b). 

Two-Stage Nonlinear Algorithm 

The nonlinear algorithm has two steps. The first is much like the untuned linear algorithm 
above, taking a weighted, but now two-sided, z -transform of the time sequence data. Let &*,(£) be 
a weighted time sequence, fi w (fc) = w(n, k)f\(k) where w{k, n) is a weighting function as in the 
linear algorithm. Then the two-sided z -transform is given by 

n n 

H w (z) = ^ w(k, n)h(k)z' k = £ ^( k )z~ k . ( 43 ) 

k = -n k = -n 

The choice of windowing function has significant effects on the rates of convergence and on 
the bound on the worst-case identification error. A trade-off appears to exist between convergence 
rate (as n gets larger) and the worst case error due to noise (Gu and Khargonekar, 1992a). For 
example, the triangular window has a worst-case error convergence rate on the order of n (Gu and 
Khargonekar, 1990); the cosine window goes as order of n 2 , but at the cost of a larger worst-case 
noise error. Similarly, the one-sided boxcar window (i.e., w(k, n) is 1 in 0 < k < n and zero else- 
where) has exponential convergence but has divergent worst case noise error (order of logo) 
(Parker and Bitmead, 1987a; Gu and Khargonekar, 1992a). Noting this, Gu and Khargonekar 
(1992a) proposed using a trapezoidal windowing function whose convergence rate is between the 
triangular and one-sided boxcar, depending on the choice of the parameter m ; the upper bound on 
the worst-case nonlinear identification error for a SISO system with a trapezoidal window is 
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( 44 ) 


inf ||ff- PL < ' + r N - n + m - ' + 2r 2m ) + [ 2(w + m) ] £ 

admissible P 1 - ' L ”" m J 

^| S£ 

where r < 1 is an upper bound on the relative stability and M is an upper bound on the steady state 
gain of ff (Friedman and Khargonekar, 1995b). 

The nonlinear algorithm, then, requires finding an F(z) such that ||ft w - #'|| 00 is at its infimum. 
H w (z) is a mixed causal/anticausal function (because positive powers of z imply prediction); a 
completely causal f is desired. Several theorems will be useful in solving this problem. 

Theorem 1: Given a causal H(z), the anticausal F(z) that infimizes ||ft - £!«, is given by the 
solution to the Nehari problem (e.g., Nehari, 1957; Adamjan, Arov, and Krein, 1971; 
Young, 1988; Dahleh and Diaz-Bobillo, 1995) as follows. 

If ft has state space description 


A 

B 

C 

Id 


or equivalently, 


q(fc+l) = Aq(k) + Bu(fc) 
y(k) = Cq(fc) + Du (k)’ 


(45) 


then the controllability and observability grammians, P and Q , respectively, are the 
solutions to the Lyapunov equations 


APA T + BB T = P and A T QA + C T C = Q . (46) 

Let the j * right eigenvector of PQ be denoted by Xj with associated eigenvalues aj 
(i.e., PQXj = cjXj), where the indices are ordered such that of > c\ > ... > G 2 . 
Let y j be defined by y = Qx ; /a) , so that Xj and y will satisfy 

Py ; = OjXj , Q Xj = 0)y and QPy ; = g) y r (47) 

Then the Schmidt pair, w r - and , associated with G } can be expressed as 


Wj ( k ) = CA k Xj, k> 0 


W j(z) = C Xj + CA XjZ~ l + CA 2 XjZ~ 2 + ... 


CA (z I- 

A)-* 

- 


A 

X J 

CA 

CXj 


Vj(k) = B T (A T )-<* +1 >y ; , k< 0 
V.(z) = B T y ; z + B T A T yyZ 2 + B T ( A T ) 2 y ; z 3 + 
Yj(z) = v/l/z) = BTy^z- 1 +B T A T y ; z- 2 + .. 
= B T (zI-A T )->y; 


(48) 




A T 


B T 

~o 
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Theorem 2: 


Theorem 3: 


Finally, the solution to the Nehari problem is 

inf _ ||$- I’ll- = <*\ [ft(z) - F(z)] V,(z) = cr, W,(z). (49) 

anti causal F 

For SIMO systems, the optimal £(z) has a unique solution given by 

£ (z) = ft(z)-a,^. (50) 

Proof of this theorem is found in Dahleh and Diaz-Bobillo (1995). ■ 

Given an anticausal ft_, the infimal value of |ft_-£| co over all causal F and the 
argument that infimizes it are 

inf ||ft--f||„ = <T 1 [ft_(z)-£(z)l V,(l/z) = (TjW^l/z), (51) 

anticausal £ 

and for SIMO systems, the infimizing £(z) is given uniquely by 

. W,(l/z) 

F(z) - ft_(z)-<T, y^j /z ) • ( 

The proof merely requires letting H(l/z) = ft-(z) and £(l/z) = F(z), such 
that ft is causal and £ is anticausal, and applying Theorem 1 . ■ 


Given a mixed causal/anticausal ft*. , the infimal value of ||ft* - over all causal 
£ and the argument that infimizes it are 

inf ||ft*-F|U = a, [ft*(z)-F(z)] Y,(z) = ^,W,(l/z) (53) 

causal F 

The proof is as follows. Let ft*(z) = ft+(z) + ft-(z) , separating ft* into its 

1 A A t 

purely causal and purely anticausal parts, H+ and H_, respectively, 


ft + (z) = X = fi w(0) + K(i)z-' + K(2 )z- 2 + ... 

*_=° . (54) 

ft_(z) = X = h*(-l)z'+fi*(-2)z 2 +... 

k = -oo 

Further let £ = F - ft+ . Theorem 2 is applied to find the causal £ nearest the anti- 
causal ft_ . But since ft* - F = ft_ - £ , 
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inf ||ft w -f'|| 0O = <Tj [ft w (z)-f , (z)]y i (z) = 0 j Wj ( 1 /z) , (55) 

causal F 

and for SEMO systems, a unique solution exists 

to = ft»(z) - o i - (56) 

where W, and V, are the Schmidt pair given in Theorem 1 . ■ 

Theorem 4: The system ft for a SIMO problem is such that 

{a) the controllability grammian P is the identity matrix, 

(. b ) the observability grammian is given by 


Q=X A ?’ (57) 

r - 1 

where n 0 is the number of outputs and A r denotes the Hankel matrix 
associated with the anticausal part of the r th pulse response h w (—k ) ; 

i.e.. 


h w ,(-l) h w (-2) ■■■ h w ( 1 - n ) h w (-n) 
h w (-2) h w {- 3) ••• h w {-n) 

h w {\ -n) h w (-n) 

K t {-n) 


(c) erf is the largest eigenvalue value of Q , 

(d) y, = (TjX, , and 

(e) the system estimate F reduces to the n D equations 


(58) 


Friz) 


Lz 2 " -1 ... z ljA r x, 
_z 2n ~ l ... z n + 1 z"Jx 


( 59 ) 


th A 

where A r is a function of the r pulse response h w (k) such that its 
elements are given by 


Structural System Identification Methods 


27 



(60) 


X = \ h Wr (j-k), j~k< 0 
~' il 1 0, j-k> 0 

The character of the state space form of H for a SIMO system is: 


r 



r \ 

®1 x (n- 1) 

0 


l 

I(n-l) x (n- 1) 

'a' 

i 

X 

B = 

> 

®(n-l) x 1 


J 




C = LM-1) K(-2) ... D = 0 


( 61 ) 


Because of this simple structure, the Lyapunov equations can be symbolically 
solved. The Lyapunov equation for P is APA T + BB T = P . The terms on the left- 
hand side can be written as: 


APA T 


®1 x («- 1) 

0 


*(«-!) x (n-1) 

®(n-l) xl 

. Pc 


o 

1 

®1 X (/I — 1 ) 

®(n- 1) x 1 

P a 




®(n- 1) x 1 

I(n-l) x (n - 1) 

0 

®lx(n-l) 


( 62 ) 


BB T = 


1 




1 

®1 x (n-1) 

1 

®(n- 1) x 1 

'L 1 

® 1 X (« - 1) 

J = 

® (n - 1) x ] 

®(n-l) x (n-1) 


( 63 ) 


APA T + BB T 


1 

®lx(n- 1) 

® (n - 1) x 1 

P a 




= P 


( 64 ) 
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Therefore, p u = 1 , p Xj = p jX = 0, and p jk = p u _ i)(k _ X) for j = 2 and 
k = 2, n . So, result (a) is 



1. j-k 
0, j±k 


P = I 


nxn 


(65) 


A similar simplification of the other Lyapunov equation, A T QA + C T C = Q , 
gives result ( b ) 


_ j hl(-j)ft w (-k), j = n or k = n 

qjk 1 q u+ j) (4+ i) + hl(-j)h w (~k), otherwise 


( 66 ) 


X ^^(- /M )^w(ly -k\-m) 

m = ma x(J, it) 


Q = I A?. 


r= 1 


Since <r^ is the largest eigenvalue of PQ and P is the identity matrix, result (c) 
is immediate. Similarly, because P is the identity matrix, (47) simplifies to result ( d ) 
y, = o x x x . 

The final result ( e ) is found by substituting the definitions of A , B , and C in 
(61) into the definition of the Schmidt pair (48) and simplifying 


W l (l/z) = [h w (-l) K(-2) ... h w (-n ) J 


1 

z 1 

z 2 z 1 


0 


7« - 1 ... t-2 


V,(z) = 


Ll 2 ••• Z" -, jA r X, 

Lz -1 z _ 2 ... z^Jy, = 0iLz _1 z -2 


z 2 z 1 


... z- n Jx, 


Substituting into (56), 

PAz) = [H w {z)V { { Z )-o x W,(\/z)]/y x (z) 

Aw(z)l z -1 z -2 ... z-"Jx,-Ll z ... z" - 1 jA r x, 
L Z ' 1 z -2 ... z _n Jx, 

H Wr (z)lz~ l z' 1 ... z'"J - Ll z ... z" _1 jA r 
Lz- 1 Z“ 2 ... Z" n Jx, 


(67) 


( 68 ) 
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But the first term in the numerator can be expanded as 




z~ n 


> - i 


[^(OJz" 1 + ... + h w (.n)z~ n ~' 
h w (-l)z~'+ ••• +h w (n)z- n ~ 2 


h w (1 - n)z -1 + 


+ h w ( n)z~ 2n 


h Wr (-n)z n ~ 1 + ... + h w (- 1) 
h w (-n) 


r-i 


r-2 


t—2/i 


k Wr (0) h Wr (- 1) - h w (\-n) 

h w ( 1) h w (0) ••• h w p.-n) 


\h w (n-\) 

h w (n) h w (n - 1 ) 

h Wr (n) ' • . 

•. K r {n- 1 ) 

h w (n) 

= L z- ] z- 2 ... z“ 2 n jA r +Ll z ••• z" “ 1 J A r 


0 


1 

T " 

z l 

V- 1 - 

► 

i 


.(69) 


Thus the model for the r th output can be simplified to 

[Lz- 1 z~ 2 ... z- 2n jA r + Ll z ... z"- | jA r -Ll z ••• z"- 1 jA f ]x! 


PXZ) = 


Lz-' z -2 


Lz _ 

r 2 "jA r x, 


1 z -2 


r"Jx, 


Lz -1 z -2 
Lz 2n -' .. 


... z-"Jx, 
Z 1 jA r x, 


(70) 


Lz 2n_1 . 

which proves result (e) 


z n + 1 z"Jx 1 


In summary, to compute the estimate F of the SIMO system H and the estimated bound on 
the model error: 


1. Construct the Hankel matrices A r from the anticausal part of the weighted pulse 
responses 



^*,(1 -j-k), 

0, 


j + k - 1 < n 
j + k - 1 > n 


(71) 
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2. Find the largest eigenvalue a\ and the corresponding eigenvector x, of the sum of 
the squares of the anticausal Hankel matrices 


f ", 


A 


I A? 

V r = 1 J 


X, = o\x x 


( 72 ) 


3. Form the A r matrices 



Kij ~k), j - k < 0 
0, j - k > 0 


4. Then the estimated model I" and the estimated bound on the model error are 


(73) 


F(z) 


Lz 2 "- 1 


Lz 2n - 1 

... z ljA, 



Lz 2 "-' 

... z ljAj 


(74) 

Lz 2 "-' 

... z ljA 

OJ 






(75) 


4.1.3 Example 1 of the //^-based Identification Algorithms 

Gu and Khargonekar (1992a, 1992b) give some examples of the untuned linear and nonlinear 
algorithms; one such example (Gu and Khargonekar, 1992b), repeated here, is the attempt to 
identify the system 


H(z) = 


3 (z 2 + 1) 
5z 2 + 2z + 1 


(76) 


with noise bound |7] t | < £ = 0.1. The noise is generated by rj k = ee' 6 *, where 6 k is a 
uniformly distributed random variable on the interval [0, 2k). N is chosen to be 512. A triangu- 
lar window is used, with n taking on the values 5, 10, 20, 40, and 80. Both the linear and 
nonlinear algorithms were executed using Matlab® on the UIUC Engineering Workstations. 

Figure 1 1 shows the pulse response of the system with noise and without. The pulse response 
of the exact system and the identified models are shown in Fig. 12. Only the lowest-order model 
(n = 5) shows significant deviation from the actual system response. 

The identified transfer functions are plotted with the original system transfer function in Figs. 
13 and 14 (magnitude and phase respectively; frequency is normalized such that the Nyquist 
frequency is normalized to 1). It is obvious that the larger the order of the identification (i.e., the 
larger the value of n ), the closer the approximation is to the original transfer function. The worst- 
case error, give in Table 1, seems to suggest that the converse would be true; in all cases examined 
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Transfer Function Phase [degrees] Transfer Function Magnitude 



Figure 13: Magnitude of original and identified transfer functions* 



Figure 14: Phase of original and identified transfer functions. 
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model order n 

worst-case error <7, 

5 

0.0079059 

10 

0.011599 

20 

0.015108 

40 

0.019927 

80 

0.029021 


Table 1: Worst-case error for the nonlinear identified models of Example L 


for this study, however, the actual error never went up with increasing model order (unless 
numerical difficulties in the eigenproblem corrupted the solution). 

Due to the high order of the approximations, only the lowest-order identified polynomial 
models will be given here (the polynomial coefficients are accurate to 4 significant digits): 

f, , , 0.5961 z 4 -0.1951s 3 + 0.3449z 2 - 0.07495z -0.009165 

^linear w — “4 

n = 5 Z 


^nonlinearfe) 

n = 5 


0.596z 6 - 0. 1 349z 5 - 0.000366z 4 + 0.06508z 3 - 0.2053z 2 + 0.04018z + 0.005021 


[ 0.596 1 z 9 - 0.2 1 95z 8 + 0.4599z 7 - 0. 1 3 12z 6 - 0.0275z 5 

* , s + 0.024 lz 4 -0.00449z 3 + 0.0003689z 2 + 0.00021 z + 0.0003871 ] ( 77 ) 

* Unear (Z) - ~ o 

n = 10 Z 


[0.5959z 17 - 0.1 136z 16 + 0.0471 lz 15 - 0.009078z 14 - 0.2901z 13 + 0.0837z 12 
- 0.6885z" + 0.07275z 10 -0.06215z 9 + 0.01491z 8 + 0.02792 z 7 - 0.01 151 z 6 
* -0.0003642z s + 0.001 117z 4 -0.0002158z 3 - 0.00004217z 2 + 0.0000193 ] 

^noniinear(z) = [ z n + 0. 1704z 16 - 0.6321 z 15 - 0. 1568z 14 + 0.02693z 13 

+ 0.09749z ,2 -0.1631z n +0.01218z'° + 0.04985z 9 ] 


n = 10 


One important observation from the transfer functions is that the highest order models ( i.e ., 
those with n = 80) are oscillating, in both magnitude and phase, unlike the lower order models, 
though it is closer to the exact transfer function than those lower order models; the higher-order 
model may be trying to model the noise. Another observation is that the nonlinear algorithm does 
not appear to do much better than the linear algorithm. In fact, the difference is only noticeable in 
Figures 15 and 16, that show the transfer function error magnitude, i.e., \e(z)\ = \H(z) - F(z)| • 
(Figure 16 is quite similar to that shown by Gu and Khargonekar (1992b); any difference is due to 
the fact that the noise is random.) 

The error of the pulse response of the identified models is shown in Fig. 17; the peak response 
error is approximately 0(1 /n) . The difference between the linear and nonlinear results are barely 
apparent here. Part of the reason is that the pulse response dies out so quickly (and indeed is zero 
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Magnitude of Transfer Function Error 



Figure 15: Magnitude of identified transfer function error. 



Figure 16: Magnitude of identified transfer function error. 
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Figure 17: Absolute error in pulse responses of identified models. 



Figure 18: Error in response to Gaussian white noise input, relative to the RMS of the exact response 
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Figure 19: Relative difference between linear and nonlinear responses to Gaussian white noise input 

for linear approximations after time n - 1 ). To examine a longer response, the exact system and 
the identified models are subjected to a Gaussian white noise input. The response error, relative to 
the root mean-square (RMS) of the exact response, is shown in Fig. 18. Again, the difference 
between the linear and nonlinear models are only apparent for the higher order models. This can 
be more easily seen in Fig. 19, which shows the relative response difference between correspond- 
ing linear and nonlinear models. 

4.1.4 Example II of the ff^-based Identification Algorithms 

To evaluate the utility of H ^- based identification for structural system identification, an addi- 
tional example, using a structurally-based system, is beneficial. A six degree of freedom system, 
like that in Fig. 4, with all masses, damping coefficients, and spring stiffnesses the same, is 
simulated in discrete time; the system input is the force on the first mass, and the outputs are the 
displacements of the six masses. 

The noise in the pulse responses is generated in the same manner as in the previous example, 
with the noise magnitude from each response being a constant e = 0.1 magnitude in the 
frequency domain but of random phase. One of the six pulse responses, that of the third mass, is 
given in Fig. 20 with and without the noise. This system has, of course, six modes, but the 
damping varies significantly from mode to mode; the lowest frequency has 1.2% damping and the 
highest has 9.7%. Thus, the low frequencies dominate the long-term pulse response and the higher 
frequencies are only seen in the first portion of the response. This dominance can also be seen in 
the magnitude of the transfer functions of the exact system and to modal coordinates in Fig. 21. 
Since the noise has a flat frequency content, one would expect the identification of higher modes 
to be more error prone due to a lower signal-to-noise ratio. 
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Figure 20: Pulse response of mass #3 of six degree of freedom system. 



normalized frequency (oTfrc 


Figure 21: Transfer functions of the exact system (top) and to modal coordinates (bottom). 
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model order n 

worst-case error CTj 

24 

0.020505 

60 

0.035888 

120 

0.056611 

240 

0.10154 

480 

0.18838 


Table 2: Worst-case error for the nonlinear identified models of Example II. 


Both linear and nonlinear algorithms are used to identify this system. Their results are 
similar, so only the nonlinear results will be given here and the differences noted where appropri- 
ate. The worst-case error found by the nonlinear algorithms, shown in Table 1, increases with 
model order, as seen in the previous example. The actual error, however, was seen to be non- 
increasing with higher model order. 

The magnitude and phase of the exact and nonlinear identified transfer functions to the first 
output are shown in Figs. 22 and 23. Decent estimates are found with a model order of n = 120 ; 
the strong peak of the first mode, required to accurately determine its damping, is not closely 
approximated unless an even higher order is used. The error at magnitude peaks and valleys is 
even more obvious in the transfer function to the third output in Fig. 24. 

The error in the transfer functions demonstrates that the identified models have difficulty in 
obtaining accuracy with error magnitude less than the noise magnitude e. Figure 25 shows the 
error magnitude of the nonlinear identified models for the first output. The peak error is seen to be 
non-increasing as model order increases, but the error is rarely much below the noise magnitude of 
0 . 1 . 


As noted above, the difference between the linear and nonlinear identified models would be 
hard to see in a graph of the transfer function magnitudes. They do differ, but only for high model 
orders is the magnitude of that difference significant relative to the error in the transfer functions. 
Figure 26 shows the magnitude of the difference between the linear and nonlinear identified 
transfer functions for the third output. Only the difference for n > 240 is not small in comparison 
with the noise magnitude and the magnitude of the error of the identified models. 

The /J^-based identification does function satisfactorily for this structural identification 
problem. 

4.1.5 Evaluation of the /7^-based Identification Algorithms 

The results of the // M -based identification are generally good, as was seen in the above 
examples. Application to real-world systems has also demonstrated the usefulness of tf^-based 
identification in general ( e.g ., Gu and Khargonekar, 1993; Friedman and Khargonekar, 1995a, 
1995b, which identified the ATB 1000 testbed at the U.S. Army Automation and Robotics Lab and 
the Advanced Reconfigurable Control (ARC) testbed, a 6-bay truss structure, at the Jet Propulsion 
Lab; Friedman, 1996). 
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Figure 22: Magnitude of transfer function #1 of the exact system and the nonlinear identified models. 



Figure 23: Phase of transfer function #1 of the exact system and the nonlinear identified models. 
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Figure 24: Magnitude of transfer function #3 of the exact system and the nonlinear identified models. 



Figure 25: Magnitude of transfer function #1 error of the nonlinear identified models. 
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Figure 26: Magnitude of difference between linear and 
nonlinear identified transfer functions for output #3. 


There are a number of practical concerns about this type of identification. First, the nonlinear 
algorithm requires the solution of an n x n eigenvalue problem. For large systems, this can be 
very computationally intensive and may require special care for accurate results. Second, the 
resulting models generally require a significant reduction in order. Identified models are typically 
20-200 times the order of the “true” system in order to get accurate results. While order reduction 
is not difficult to do, it carries its own set of problems, especially for large systems. Third, a 
modest amount of expertise is required to properly use the H x identification; for example, it has 
been seen (Friedman and Khargonekar, 1995a) that the choice of windowing function can be 
critical to the algorithm’s performance. Finally, the method requires pulse response data as 
opposed to directly-measured input and output data; this is not a difficulty for baseline structural 
testing, especially since high-speed implementation of inverse discrete Fourier transform is often 
available, but it limits the usefulness of the method in on-line situations where speed is critical. 

The conclusion, then, is that while the H M identification methods lend themselves to use in 
some applications, on-line monitoring is not one of them for the methods studied herein. 

4.2 Eigensystem Realization Algorithm 

The Eigensystem Realization Algorithm (ERA) (Juang and Pappa, 1985) uses the system 
Markov parameters (pulse response) to compute the eigenvalues and eigenvectors of a system, 
which can then be used to find natural frequencies, damping ratios, and modeshapes. The system 
is assumed to be discrete-time, linear, and time-invariant of the form 
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( 78 ) 


q (k + 1) = Aq(fc) + Bu(k) 
y 00 = Cq(fc) 

with n u inputs and n y outputs. The pulse response (Markov parameters), given by 
Y(Jfc) = CA*-!B , is measured, perhaps directly in the time-domain by introducing impulses into 
system inputs, or indirectly from the inverse discrete Fourier transform of a transfer function 
matrix. A generalized Hankel matrix of the Markov parameters is formed 


H (*) = 


Y(Jk) 
Y(k + 1) 


Y (k + 1) 
Y(k + 2) 


Y(k + s) 

- Y(k + s+ 1) 


Y(k + r) Y(k + r+ 1) ••• Y(k + r + s)J 


(79) 


where r and s are arbitrary integers, but should both be at least twice the assumed order of the 
system for best results. 

The generalized Hankel matrix for k = 0 is decomposed via a singular value decomposition: 
H(0) = PDQ T . In the absence of noise, the order of the system is immediately apparent because 
the first n singular values are non-zero while the rest are identically zero. With noise, one must 
judge where the cut-off is between real and noise-induced non-zero singular values — this 
threshold is dependent on the estimated measurement errors and computer precision. The decom- 
posed matrices, P , D , and Q , are truncated in order to ignore the zero (or nearly zero) singular 
values; the first n rows and n columns of D are retained, as are the first n columns of both P and 

Q 

Then, the minimum-order realization is 


A = D -1/2 P T H(k)QD~ ,/2 
6 = D 1/2 Q T [I xn 0„ x 1 T 

^ n u Xn u n u XSn u 

C = [I„ xn 0„ xrn ] PD I/2 

L n,x n rt,, x rn. J 


(80) 


and the eigenvalues z r and eigenvectors \jf r can be found from A\jr r = z r \fr r . The continuous- 
time poles are then given by s r = ( lnz r ± 2mnJ-i) /kT, where T is the sampling period and m 
is an integer; modeshapes are given by C^. k is generally chosen to be 1 for simplicity. 

The modal amplitude coherence y r , a measure of whether a mode is judged to be true or 
noise-induced ( y r is always in [0,1]; nearer zero signifies a noise-induced mode, nearer one 
signifies a true mode), can be computed from 


Yr = 


iX 2 


sx g;g r 


(81) 


Structural System Identification Methods 


43 



where ( ) * denotes complex conjugate transpose and the column vectors g, , bj , and g r are 
defined by 


[gi 82 ••• gJ* 
[*>i b 2 bj* 
g; 


'i'~ 1 D 1 / 2 Q T 

r l D"2QT[I axn o n xsn y 

|_b; bx bx - bxi 


(82) 


The ERA method, like the H ^- based identification, certainly is useful for many applications. 
It is noted for numerical robustness due to the use of the singular value decomposition, though 
care is required that sufficient data is used to form the Hankel matrix for correct estimates of the 
system characteristics. The use of ERA and its faster variants ( e.g ., Peterson, 1995) for on-line 
monitoring, however, is limited since it can be somewhat computationally intensive and may not 
be sufficiently fast to meet on-line requirements. 


4.3 Parametric Time-Domain Methods 

The methods available to do parametric identification in the time domain are probably some 
of the most-widely classes of system identification. Certainly, one of the reasons for this is their 
ease of use in general; and perhaps just as importantly, access to these routines in software 
packages, Matlab® for example, has facilitated use by practitioners. Furthermore, time domain 
methods can, in general, better distinguish between modes whose frequencies are closely spaced 
than can frequency domain methods (Inman, 1989). 

Most of these methods (Ljung, 1987) choose a set of parameters by using the prediction error, 
the difference between what the model predicts the output should be at some instant of time and 
what is actually measured at that time; i.e.. 


e(k, 0) = y (k) - y(k, 0) 


(83) 


where 0 is the parameter vector, y (k) is the measured output, and y (k, 0) is the output predicted 
by the model. A cost function based on the prediction error is then minimized to find the best 
choice of parameters Q*(k) based on all data up to, and including, time k 


* 

Q,(k) = arg min Y l(j, k, L (z)E(k, 0), 0) (84) 

0 

j = i 

where L(z) is a matrix of stable linear filters and l(k, £ flltered , 0 ) is a scalar-valued function 
(typically positive). L is essentially a frequency weighting of the error; for example, it can be 
used to prefilter the error to remove high-frequency disturbances that are not essential to the 
modelling or low-frequency drift or bias effects. If the predictor is linear, then using the prefilter 
is identical to prefiltering the input and output with the same linear filter before using the predictor. 
Thus, it will be assumed in the following that no prefilter is used; i.e., L(z) = I . 

Now, the choice of the function / determines the solution. Several choices of these functions 
result in the special cases that follow. 
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The predictor can, of course, be any function of past inputs and outputs and the parameter 
vector 0 . A convenient predictor, however, is a linear regression model 

S(k, 0) = <D T (k)0 + \i(k) (85) 

where <b(k) is the regression matrix and \l(k) is a known function of time (and perhaps past input 
and output data); \Jdjk) will be assumed zero for simplicity, but its exclusion leads to no loss of 
generality. The predictor and the prediction error, then, are 

f(k, 0) = <& T (fc)0 

( 86 ) 

e(k,0) = y(k)-4> T (k)0 

The form of the regression is dependent on the assumed model of the system. Two forms that 
are very convenient for linear, (locally) time-invariant systems are the Auto Regressive with 
exogenous inputs (ARX) and Auto Regressive Moving Average with exogenous inputs 
(ARMAX) models. Both assume a linear difference equation between system inputs and outputs. 
The former assumes that the noise is simply an uncorrelated white noise on the sensor outputs 

y(fc) + A,y(fc- 1) + ... +A y(k-n a ) = B,u(*- 1) + ... +B u(k-n b ) + e(k) (87) 

while ARMAX assumes a more complex noise mode, replacing the e(k) term with 

e(k) + C t e(k - 1) + . . . + C n e(k - n c ) (88) 


which allows for the sensor noise to be filtered and for white process noise. Other forms are 
sometimes useful, such as the Box-Jenkins and Output-Error models (Ljung, 1987). 

The regression matrices for the ARX and ARMAX models are, respectively, 

<*\rx(*) = [-y(*-l) -y(*-2) ... -y(k-n a ) u(*-l) u(k - 2) ... u(k-n b )] T (89) 

®armax(*) = Wrx(*) e(*-l,0) E(k- 2,0) ... £(k-n c , 0)] T (90) 

4.3.1 Time-Domain Least-Squares Methods 

The least-squares methods construct the cost function by letting / be 

Kk, 9) = TT —e T (k, 0)W-'(t, em, 0) (91) 

ZK final 

where W (k, fc final , 0) is a positive, symmetric, semidefinite weighting matrix that may depend on 
time and (less frequently) the parameterization. This leads to a relatively simple solution for the 
parameters 0, 
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(92) 


0, LS (*) 


n * 

k, m J U) 

- j = i 


>, * 

i£<DO) w -'0',*, e)yO) 

7=1 


This is what is sometimes termed weighted least-squares identification. Of course W (k, fc final , 0) 
may be the identity matrix in which case there is no weighting. 

For multi-output systems, a slightly different parameterization may be possible, where the 
prediction regression is 


S(k, e) = e T <Kfc) 


where © is a p x n y matrix. The weighted least-squares solution to 0 is then 


©RJ k) = 


h * l" 1 

±X#/>w-‘c/ f k, ewu) 

- 7=1 -* 



<K/)W -l O, k, 0)y T O) 


(93) 


(94) 


which requires the inverse of a px p matrix (the regression vector <|> is p x 1 ), much quicker than 
inverting the pn y x pn y matrix in (92) (where the regression matrix O is pn y x n y ). 

4.3.2 Recursive Least-Squares Methods 

A general recursive identification algorithm requires that it be possible to cast the parameter 
estimation in the form 


X(k) = R(k, X(fc - 1), y(k), u (k)) 
kk) = h(X(*)) 

where H and h are known functions that can be computed in a known amount of time (typically, 
less than one sampling period) and X is a matrix of fixed size that represents some accumulated 
information or knowledge. Since the amount of information in the newest measurements is small 
compared to the accumulated information, a more typical form is 

kk) = kk- 1) + y(k)h(X(k - 1), y (k), u (*)) 

X(k) = X(k - 1) + p(k)H(X(k - 1), y(k), u (k)) 

where y and p are small numbers that reflect the information content of the latest measurements. 
For many methods of interest, h has a simple form such that 

kk) = kk - 1 ) + K(k) [ y(k) - y(k, ©)] (97) 

A weighted least-squares algorithm, where the weighting W (k, fc fina] , 0) is of the form 
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or, equivalently. 


W-'(* , 9) = Mk)V/-'(k - 1 , 9) 

» H , 9) = I 


( 98 ) 


^ final 

W-'«, 9) = 


j = k + 1 


(99) 


can be cast in the recursive relationship 

§(*) = &(* - 1) + R-'(k)4>(k) [y(k) - W(k)S(k - 1)] (1Q0) 

R(k) = Mk)W - 1) + ®(k)Q T (k) 

Another convenient form is found by letting P (k) = R~ l (k ) , applying the matrix inversion lemma 
to the equation for R(k) , and simplifying 

Q(k) = B(k - 1) + P (k - l)L(fc) [y(k) - <D T (A:)§(* - 1)] 

L(*) = <tXk)[mi + <t> r (k)P(k-l)<IKk)]-' ( 10i) 

R(k) = ^P(t-l){l-L(W)P(t-D} 

This form is especially convenient for single output systems since the matrix to be inverted in 
(101) is a scalar, whereas in (100) it is p~Xp. 

This variant is often called the forgetting factor method since it facilitates weighting past 
information exponentially less as time goes on, thus allowing identification of slowly time-varying 
systems. A constant forgetting factor X = Mk) is often used, making the weight 

w-KMto,,®) = x k ~ kfiM> I (102) 

Several other recursive least-squares variants are available. One, which assumes that the 
change in the true parameters Q 0 (k) follows a random walk, is given by 

%(k) = 0 O ( k - 1) + white noise (103) 

A Kalman filter formulation can then be used to minimize the error in the estimated parameters. 
Two additional variants are the unnormalized and normalized gradient approaches, which set 
K(k) in (97) to 


j Ty(*) 

1 T\|f(fc)|\|/(/c)|- 2 , 


unnormalized gradient 
normalized gradient 


(104) 
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where \| r(t) is an estimate of the gradient of y(t, 0 ) with respect to 0 . 

One significant concern is the computational complexity of the recursive algorithms, which 
must be low enough to allow on-line processing of the data. The complexity of the recursive least- 
squares methods goes as p 2 where the parameter vector 0 is p x 1 . For large systems, this may 
seem prohibitive, but several faster modified recursive least-squares algorithms exist (Ljung and 
Soderstrom, 1983, especially Appendix 6; Ljung, 1987) whose complexity is closer to 0{p) , for 
example fast transversal filters (Cioffi & Kailath, 1984) and least-squares lattice filters (Griffiths, 
1977; Makhoul, 1977; Lee etal., 1981). 

It should be noted that Matlab® does include a number of recursive least-square routines, 
including all four variants mentioned above. Both ARX and ARMAX system models are 
included, along with Box- Jenkins, Output-Error, and a general Prediction-Error model. Its imple- 
mentation, however, is limited to single-input, single-output (SISO) systems for many of the 
routines, and to multi-input, single-output (MISO) for others. None of the recursive least-squares 
algorithms will handle the general multi-input, multi-output (MIMO) systems; perhaps MIMO 
systems were not included due to the matrix inversion in (100) or (101) if the output is not scalar. 
One could argue that a model for each output of a system could be estimated and then combined. 
Generally, however, the dynamics for each output are linked. With all outputs handled at the same 
time, one would expect better results due to the additional information available to the estimator. 

4.3.3 Instrumental Variable Methods 

An alternate formulation can be based on requiring that the noise be uncorrelated with past 
samples. This may be formulated by requiring 

, * 

£ X v 0 ') tyO") - ® T (*)e] = o (105) 

j = 1 

where \(J) are the instrumental variables that should be correlated with the regression matrix but 
uncorrelated with the noise 


E[\(k)0 T (k)] is nonsingular 
E[\(k)\(k)] =0 

where the measured data is assumed to be given by 

y(k) = <D T (k)0 + v(Jfc) (107) 

Appropriate instrumental variables for ARX and ARMAX models can be found. One method 
of constructing the instrumental variables with an ARX model is to first use a least-squares search 
and use the resulting estimation of A ; LS and to construct the instrumental variables 

\(k) = [-x(fc-l) -x(Jt- 2) ... - \{k-n a ) u(fc-l) u(k-2) ... u (k-n b )] T (108) 

where x is the input filtered through the ARX model 
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[I + A “z-» + ... + x(k) = [B^V 1 + ... + B^z'"*] u (k) 

a n b 


( 109 ) 


Instrumental variable methods can be done recursively. For details on this, on other choices 
of the instrumental variables, and a full derivation, see Ljung (1987) and the references therein. 

4.4 Comparison of Various System Identification Methods 

A number of the aforementioned system identification methods have been evaluated for their 
usefulness in on-line monitoring of structural systems. Table 3 rates these methods according to 
(i) the expertise required to use the method well, (ii) numerical convergence properties of the 
method, (if*) the potential for use on-line, (j'v) where the initial guess must be, (v) the reliability of 
the results, and (vi) what knowledge is required a priori. (Part of this chart is borrowed from 
Shinozuka and Ghanem (1995).) 

The method that best appears to meet the criteria for on-line monitoring of slowly time- 
varying systems is a recursive least-squares method that uses the “forgetting factor” variant (which 
weights past measurements exponentially less). This method is easy to use, produces reliable 
results, and has high on-line potential. Furthermore, it is able to handle time-varying systems well 
due to the exponential weight. 


ID Method 

Required 

Expertise 

Numeri- 
cal Con- 
vergence 

On-line 

Potential 

Initial 

Guess 

Reliability 
of Results 

a priori 
knowledge 

ERA 

medium 

good 

low 

anywhere 

good 

pulse resp. 


substantial 





pulse resp. 

Least Squares 
(ARX, ARM AX, etc.) 

minimal 

always 

low 

anywhere 

good 

I/O hist; order 

Recursive Least Squares 
(RARX, etc.) 

minimal 

always 

high 

anywhere 

medium 

I/O hist; order 

Recursive Least Squares 
(RARX, etc.) with exponential window 

minimal 

always 

high 

anywhere 

good 

I/O hist; order 

Maximum Likelihood 

substantial 

sometimes 

low 

close 

good 

I/O hist; order 

Recursive Instrumental variable 

medium 

always 

high 

anywhere 

medium 

I/O hist; order 

Extended Kalman Filter 

substantial 



close 

good 

varies 

Subspace Methods (N4SID) 

minimal 

always 

low 

anywhere 

good 

I/O hist. 


Table 3: Evaluation and comparison of some system identification methods 
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5.0 TWO-STAGE ADAPTIVE MONITORING 

Given that available on-line computer power is constant, the goal of accurate identification of 
structural parameters and/or modal responses is generally in direct contradiction with attempting 
to update such information rapidly to track a time-varying system. A two-stage adaptive monitor- 
ing scheme can meet the sometimes conflicting needs of on-line monitoring. 

5.1 Basic Design of a Two-Stage Algorithm 

Two loops characterize a two-stage algorithm. The outer loop, which is performed on-line but 
not necessarily in real time, is a system identification loop that updates, as often as possible, 
estimates of the system parameters and a Kalman filter to monitor the system. The real-time inner 
loop uses the most recently available Kalman filter output to monitor modal response; this modal 
response may be used to watch for pathological behavior of certain modes, or it may be used as the 
input to a simple single degree of freedom identification algorithm to update frequency and 
damping more rapidly than the outer loop can. Figure 27 shows a block diagram of a two-stage 
algorithm. Similar multi-stage algorithms (e.g., Chen et ai, 1992) for the purpose of adaptive 
control have been studied. 

Note that the method used to identify the system is not necessarily defined. It may be a 
standard algorithm, such as a recursive least-squares time-domain method, or something more 
esoteric. 



Figure 27: Block diagram of a two-stage adaptive monitoring algorithm. 
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In order to monitor modal response, a modal Kalman filter can be used. To do so, the identi- 
fied model must be put into a state-space form. A similarity transformation is used to convert the 
identified system to modal state-space (block diagonal form). Assume the identified system is of 
order n with state-space description (A, B, C, D) in continuous- or discrete-time 

\(k + 1) = A d x(k) + B d u(k) x(t) = A c x(/) + B c u(t) 

j , or (110) 

y(k) = C d x(k) + D d u(fc) y(t) = C x(0 + D°u(0 

Let X r and <I> be the right eigenvalues and eigenmatrix of A , arranged such that 


[<I >1 r p I ¥i-¥,]. n = 2p + q 

[A, All ...| Xp Ap*| n v ..^] T 


Then the similarity transformation to convert to modal state-space is 


-a\ 1 
-a, 1 


T = <X> 


0 


0 


-Op 1 
Clp 1 


( X p continuous 
j, lnA jf discrete 


I 


qxq] 


( 112 ) 


where the a t depend on whether the model is in continuous or discrete time. Replacing x with 
Tx and premultiplying the state equations by T _l will give 

x(k +1) = A d x(k) + B d u (k) x(t) = A x(r) + B c u(t) 

j j or ^ (113) 

y(k) = C d x(/c) + D d u(k) y(t) = Cx(t) + Du(/) 

which is a system whose states are modal displacements and velocities 
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B = TB C = CT 


(115) 


where the p 2x2 blocks A r in A are functions of modal frequency 0) r and damping ratio £ r 
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where Q) d = Q) r Jl - Q . . The modal state-space description (A, B, C, D) can then be used to 
easily compute natural frequencies and damping ratios. It can further be used to formulate a time- 
varying Kalman filter to efficiently estimate modal responses. 

A time- varying Kalman filter (Chui and Chen, 1987) for a system with discrete-time state- 
space description 


x(4 + 1) = A (4)x(4) + B(4)u(4) + r(4)£(4) 
y(4) = C(4)x(4) + D(4)u(4) + Tl(4) 


(117) 


where zero £(4) and Ti(Jfc) are zero-mean Gaussian white noise vectors with covariance 
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and with initial state conditions x(0) , is given by the initial conditions 


P(0) = E [x(0)x T (0)] 4(0) = E[x(0)] 


(118) 


(119) 


and the recursive filter equations (terms in gray may be eliminated if S (k) = 0 ) 


K (k) = T(kWk)R-Hk) 

P (k) = [A(4- 1)-K(4- 1)C(4- 1)]P (k- 1) [A(4- 1) - K(4 - 1)04- 1 )] T 
+ T(k - 1)Q(4 - 1)T T (4 - 1) - K (k - 1 )R(k - l)K 1 (k - 1 ) 

G(k) = pwcmicikmvcm+w))- 1 

P(i 4) = [I-G(4)C(4)]P(4) 

x(4) = A(4- 1)4(4 - 1) + B(4- l)u(4- 1) 

+ K (k- h[y(4- 1)-D(4- 1)11(4- \)-C(k- lj 4(4- 1)1 
4(4) = [I - G{k)C(k)] x(4) - G(4)D(4)u(4) + G(4)y(4) 
y (4) = C(4)4(4) + D(4)u(4) 
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5.2 Example of a Two-Stage Algorithm 

To demonstrate the usefulness of a two-stage algorithm, it will be applied to several systems; 
first to a single degree of freedom system to demonstrate several important observations on the 
effects of various algorithmic parameters, and then to two multi-degree of freedom systems with 
two and six degrees of freedom, respectively. All three base systems are like the six degree of 
freedom system shown in Fig. 4, and have masses, spring stiffnesses, and damping coefficients 

m i = 1, k t = 1 , and c i = 0.1, (121) 

respectively; the natural frequencies, then, are clustered around 1 rad/sec. (This is, of course, quite 
a bit lower than most real-world structural systems of interest here, but since it is a linear system, 
the time- and frequency-ranges are easily scaled.) These systems will then be modified in 
piecewise time-invariant and continuously time-varying manners to demonstrate the ability to 
track to such changing systems. 

An ARX system model is assumed for several reasons. First, it is relatively simple and can be 
used to clarify certain issues. Second, it allows the use of a recursive algorithm RARX. Third, the 
identification can be implemented easily with Matlab® via the rarx function. Fourth, the 
extension to an ARMAX model, which includes a more realistic noise model, is direct. The for- 
getting factor variant will be used since the real system will be time varying in some of the 
examples. 

Note that all of the examples were executed with Gaussian white noise inputs (of varying 
magnitudes). Thus, results will vary with realizations of the noise. 

5.2.1 Effect of Algorithm Parameters on a SDOF System 

Before applying the recursive least-squares ARX algorithm, it is useful to see the effect of the 
forgetting factor on the identification. Figure 28 shows how much weight is given to past data at 
time t = 750 seconds . Forgetting factors A in the range of [0.95, 0.995] were examined in this 
study. The proper choice of the forgetting factor is dependent on the signal-to-noise ratio and how 
much the system is expected to change. For example. Fig. 29 shows the effect of the forgetting 
factor on a single-input, single-output (SISO), single degree of freedom (SDOF), time-invariant 
system. A higher forgetting factor is less sensitive to noise; one way to think of this is that the 
higher forgetting factor is using more past data in its averages, thus smoothing out the noise 
somewhat. On the other hand, it will be seen below that a higher forgetting factor is slower in 
reacting to real changes in the system for the same reason. (In what follows, if the forgetting 
factor is not specified, it is 0.98.) 

Of course, the accuracy of any identification algorithm is dependent on the quality of the data 
used to do the identification. The effect of the magnitude of the sensor noise on the SISO, SDOF, 
time-invariant system is shown in Fig. 30, with signal-to-noise ratios of 4, 10, and 20. The 
frequency estimation is within a few percent of the actual even for a signal-to-noise ratio of 10; 
damping estimates are not as accurate (which is generally the case for most identification algo- 
rithms), being within 15-20% for a signal-to-noise ratio of 20. 

One helpful step that can be taken before the identification to improve the estimator is to 
prefilter the input and output data through a bandpass filter. This can serve to eliminate both high 
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Figure 28: Weight of past samples using various forgetting factor values. 


frequency noise that is far out of the frequency bandwidth of the structure and low frequency drift 
or bias that may occur due to inaccuracies in sensors and acquisition hardware. Since the data 
here is from simulation, the latter problem does not occur, but a lowpass filter, even a first-order 
filter, to eliminate the high frequency noise improves the results of the estimator. Figure 3 1 shows 
that this is true for both frequency and damping estimates with filters of several orders (all have 
cut-off frequency approximately 2.6 times the natural frequency of the oscillator). The results 
below use an eighth-order lowpass filter. 

5.2.2 TVacking a Time-Varying SDOF System 

To verify that a time-varying system can be monitored, frequency and damping estimates of 
the SISO, SDOF system are found as the system changes in several ways. Several different values 
of the forgetting factor are used to demonstrate how that parameter changes the response of the 
estimation as the system is modified. Piecewise time- invariant changes dwell for a period of time 
at the base system, instantaneously changes and dwells for a like duration with new system char- 
acteristics, and then changes instantaneously back to the base system; this allows an evaluation of 
the tracking ability of the identification to follow an instantaneous change in system configuration. 
Continuously time-varying changes demonstrate the ability to follow small, but continuous, 
changes in system characteristics. 

The first modification is letting the mass instantaneously decrease by 50% for a period of time 
and then back to its original value. The frequency and damping estimates of this system are shown 
in Fig. 32. The lower forgetting factor reacts much more quickly to the change in frequency and 
damping, but displays significantly more noise, especially in the damping estimate. In all cases, 
however, the identification algorithm is able to track in on the new frequency and damping values. 
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Figure 29: The effect of varying the forgetting factor on the identified 
frequency and damping of a SISO SDOF time-invariant system. 
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Figure 32: Tracking the frequency and damping of a piecewise 
time-invariant (mass decreasing) SISO SDOF system. 
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Figures 33 and 34 show similar systems except where the spring stiffness decreases and 
increases, respectively, by a factor of two, causing the frequency to change by a factor of Jl . In 
both cases, the frequency and damping estimates settle down to something near their exact values. 

Changes in damping ratios are critical for monitoring such phenomena as flutter. A decrease 
in damping alone gives the results in Fig. 35 where the damping is instantaneously cut in half for 
a period of time. The frequency estimates remain relatively constant; the damping estimate is able 
to track the changing damping ratio fairly well. Again, it is seen that the forgetting factor has a 
significant effect on the speed of tracking to the new value and a like effect on the sensitivity to 
noise. Figure 36 shows that a similar change, but now increasing damping by 50%, results in the 
same effects. 

The frequency and damping estimates due to a continuously time- varying change in the mass 
of a SISO, SDOF system are shown in Fig. 37. The frequency tracks quite well, with some short 
time lag, but damping estimates demonstrate a larger time lag, especially to an increase in mass 
(causing a decrease in damping and frequency). Changes in damping alone, however, allows for 
much better damping estimates, as seen in Fig. 38. Here, the damping follows a slow sinusoidal 
value between 50% above and 50% below the nominal value. The damping estimate is able to 
track this kind of change quite well. 

5.2.3 Tracking Two Time- Varying MDOF Systems 

Most of the observations made for the single degree of freedom hold also for multi-input, 
multi-degree of freedom systems. Two multi-degree of freedom systems were examined, with two 
and six degrees of freedom, respectively. In both cases, the inputs to the systems are independent 
Gaussian white noise forces on each mass, and the output is the displacement of mass number 1 . 

Figure 39 demonstrates that the algorithm can identify and track a two degree of freedom 
system when one of the masses changes for a period of time. The frequencies and damping ratios 
for a time-invariant six degree of freedom system are shown in Fig. 40. It is worth noting that it 
takes a short amount of time for the estimators to settle on the correct values, but it does find them. 
The same observation can be seen in Fig. 41 , which tracks the same system but with instantaneous 
jumps in one mass, causing changes in both frequency and damping. Here, it takes a short amount 
of time after the jumps for the estimator to settle back to the exact values, but it does appear able 
to do so. 

Monitoring modal response of the SDOF system in the previous section is, of course, trivial 
since there is but one mode. Here, however, with a multi-degree of freedom system, the Kalman 
filter can be used to monitor modal responses. Figure 42 shows the modal responses for this time- 
varying 6DOF system. The accuracy of the estimation depends somewhat on how much each 
mode is excited and how much each mode contributes to the displacement of the measured output; 
Fig. 42 also shows that the portion of the output contributed by the higher frequency modes was 
significantly less than that by the lower frequency modes. Thus, it would be expected that the 
lower frequency modes would be better identified, and that is indeed the case. 

The frequency content of the modes after a change in one of the masses, as monitored by the 
Kalman filter, for the 6DOF system is shown in Fig. 43. The top graph is the discrete Fourier 
transform of the modal responses over a short period and the bottom is an average of several of 
these DFTs. The expectation that lower frequency modes would be better observed and identified 
is obvious here, where the lowest modes demonstrate the least relative noise in the DFTs. 
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Figure 34: Tracking the frequency and damping of a piecewise time* 
invariant (spring stiffness increasing) SISO SDOF system. 
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Figure 37: Tracking the frequency and damping of a continuously 
time-varying (mass changing) SISO SDOF system. 
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Figure 38: Tracking the frequency and damping of a continuously 
time-varying (damping changing) SISO SDOF system. 
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Figure 41: Tracking the frequency and damping of a piecewise 
time-invariant (mass #3 decreases) MISO 6DOF system. 
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Modal response of MISO 6DOF system after one mass has decreased. 
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Figure 43: The frequency content of the 6 modal responses after one mass has 
decreased: one FFT (top) and several averaged FFTs (bottom). 
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5.2.4 Observations on Two-Stage Adaptive Monitoring 

There are several important observations that can be made from the above examples. The first 
is that natural frequency estimation is consistently more robust than estimation of damping ratios. 
This observation is neither surprising nor unusual, since it is true for most identification methods. 
Nevertheless, damping estimates are available and do track with changes in system characteristics. 

The rarx function in Matlab® is relatively sensitive to high frequency noise, so the 
lowpass filter was found to be essential. Furthermore, it was seen that multi-degree of freedom 
systems demonstrated higher noise sensitivity than smaller systems. It is unclear whether these 
sensitivities are an artifact of the particular implementation of the recursive least-squares identifi- 
cation used in rarx or if it is inherent in the algorithm itself. From hints in the literature, it is 
suspected that it is the former. 

The poor excitation of higher modes probably contributed to less accurate estimation of the 
higher frequencies and corresponding damping ratios. An example could, of course, be con- 
structed to more evenly excite the various modes, and in which the output has similar contributions 
from the various modes; but that would, in some ways, be artificial, since one typically finds that 
modal contributions and modal excitation widely vary. Thus, the example shown here is the rule, 
not the exception. 
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6.0 CONCLUSIONS AND FUTURE DIRECTION 

On-line monitoring of time- varying structural systems is a difficult problem. The Reciprocal 
Modal Vector method is useful for many systems but restricted to those whose modeshapes do not 
change over time. This is, of course, not the case most of the time. Furthermore, limited sensor 
arrays further disallow the use of the MRMV method. 

//oo-based identification methods work satisfactorily for small, off-line problems and they 
have been applied to a number of real-world problems. But they require a significant amount of 
interaction by the engineer. Furthermore, they also are relatively computationally intensive, 
requiring solutions of large eigenvalue problems, thus limiting their usefulness in an on-line 
context. 

There are, however, a number of recursive identification algorithms that are useful in on-line 
monitoring. They can be implemented in a two-stage algorithm that also uses a modal Kalman 
filter to monitor modal responses in real-time. 

Several issues remain for further study. No true multi-input, multi-output (MIMO) systems 
were studied here. The standard identification algorithms that are available within Matlab® were 
used to study least-squares time-domain identification; the recursive versions of these algorithms 
are not implemented for MIMO systems in the current version of the System Identification Toolbox 
(Ljung, 1995). Furthermore, “fast” versions of the recursive least-squares methods need to be 
investigated for their claims regarding computational requirements being less than 0(n 2 ) . This is 
necessary if large, complex systems are intended to be monitored. 
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8.0 APPENDIX A: COMPUTER CODES 


The codes that follow are all Matlab® functions and scripts. They are available from the 
authors by e-mailing to johnsone@uiuc.edu. Some of the example scripts require the 
Matlab® stextfun toolbox (written by Douglas M. Schwarz < schwarz ©kodak . com> and 
available at ftp://ftp.mathworks.com/pub/contrib/graphics/stextfun) to 
add styled text on graphs. A few of the codes here may require some of functions in the standard 
toolboxes (e.g., the Control System Toolbox); mrmvtool, the GUI front end to mrmv, requires 
the UITools toolbox from The MathWorks. 


8.1 MRMV Codes 


8.1.1 mrmv . m — Modified Reciprocal Modal Vector 


mrmv is the primary code to compute Reciprocal Modal Vectors, 
arguments are explained in the help section of the code. 


Its input and output 


function [rmv, mpv, uf rf , robind, condnum, err_calc , err_total , cor_calc, cor_total , . .. 

warn] = mrmv(l, w, resp, ni , w_index, out_order, realonly, returnerror) 

% MRMV computes the Reciprocal Modal Vectors for the given system response. 


% 

% 

% 

% 
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[ RMV , MPV , UFRF , ROBIND , CONDNUM , ERR„CALC , ERR_TOTAL , COR_CALC , COR_TOTAL } 

= MRMV (L, W, RESP , NUM INPUTS , W_ INDEX , OUT_ORDER , REALONLY ) 

Inputs: L the complex roots of the modes of interest 

(only one of each complex pair should be supplied) 

W a vector of frequencies in RADS/SEC 

RESP frequency response of the system; each column is 

the transfer function between an input and an output 
over the frequencies in W; the column in which is 
found a given frf is ( (output#) + <input#-l) * (#outputs) ) 
NUMINPUTS (optional) The number of inputs used (default=l) 

W_INDEX (optional) index of frequencies to use in calculating 
the RMVs (this is an option that permits the use of 
fewer points in the frf in order to reduce computational 
expense and focus on less noisy or more important 
frequency ranges) 

Note: an empty matrix is the same as choosing all freqs. 
OUT_ORDER (optional) 2 ==> response is acceleration data 
1 ==> response is velocity data 
(default) 0 ==> response is displacement data 
REALONLY (optional) 1 ==> restrict RMVs to be real (non-complex) 
(default) 0 ==> don't restrict them 


Outputs : RMV 

MPV 
UFRF 


ROBIND 

CONDNUM 


matrix of reciprocal modal vectors (column by column) 
matrix of modal participation factors 
matrix of uncoupled frfs; column number 
(mode#)+ (input#-l) * (#modes) is the ufrf of mode 
(mode#) due to input at input (input#) . An additional 
(#modes) columns at the end using the MPV as a right 
weighting vector are used if multiple inputs are used, 
matrix of modal filter robustness indicators; 

#cols = #modes, trows = #outputs 

a row vector of the condition numbers of the RMVs 
(each element is the euclidian norm of the 
corresponding column of ROBIND) 


ERR_CALC 

ERR_TOTAL 

COR_CALC 

COR_TOTAL 


least square error in uncoupled freq resp functions 
at the frequencies of interest, W(W_INDEX) 
as ERR„CALC but at all frequencies W 
correlation in uncoupled freq resp functions 
at the frequencies of interest, W(W_INDEX) 
as COR_CALC but at all frequencies W 


Requires NORMV, SBYS2 STACK, and STACK2SBYS . 
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mrmv.m — Modified Reciprocal Modal Vector (cont.) 


% Original MRMV code by Stuart J. Shelley, 1991, in his Ph.D. disseration. 
% But it has overconfusing options and too much user interaction to be 
% efficient, so I've rewritten it completely. 


% Copyright 
% 10/22/94 

% 3/22/95 

% 

% 11/03/95 

% 1/10/96 

% 

% 5/15/96 

% 


(c) 1994-6, Erik A. Johnson < j ohnsone@uiuc . edu> 

EAJ Original rewrite. 

EAJ Fixed several minor bugs. 

Increased efficiency {e.g., replaced pinv(A)*B with A\B) . 
EAJ Replaced several outdated auxiliary routines. 

EAJ Fixed optional arguments so that they may be passed as []. 

Clarified error messages. 

EAJ Fixed index problem with ni==l. 

Allowed W_INDEX to be a mask or indices. 


% check number of inputs and outputs 

if (nargin<3 ) , error ('MRMV requires at least three arguments: L, W, RESP.'); 

elseif (nargin>8) , error('MRMV takes at most 8 input arguments.'); 
elseif (nargout>10 ) , error('MRMV produces at most 10 outputs.'); 
end; 

% make w a column vector and 1 a row vector 
w=w ( : ) ; 

1= { 1 ; 


% create optional input arguments 
if (nargin<=3), ni= [ ] ; end; 
if (nargin<=4), w_index= [ ] ; end; 
if (nargin<=5), out_order= [ ) ; end; 
if (nargin<=6) , realonly=[); end; 
if (nargin<=7) , returnerror=0 ? end; 
warn = w ; 

% check input argument sizes 
w_index=w_index ( : ) ; 
if (-all (size (ni) )) , ni=l; end? 
if { isempty (w_index) ) , 

w__index= { 1 : length (w) ) ' ; 

elseif (any (w_index> length (w) ) | (any (w_index<l) & ( length (w_index) ~=length(w) ) ) ) , 
errmsg = 'MRMV got bad frequency indices.'; 

if (returnerror) , rmv=errmsg; return; else, error (errmsg) ; end; 

end; 

if ( size (resp, 1 ) -=length (w) ) , 

errmsg = ['MRMV requires that the #of rows in the '... 

'frfs & the #of frequencies be the same.']; 
if (returnerror), rmv=errmsg; return; else, error (errmsg) ; end; 
elseif (rem (size (resp, 2 ) , ni) ~=0) , 

errmsg = 'MRMV requires that #of columns of RESP be a multiple of NUMINPUTS . 
if (returnerror), rmv=errmsg; return; else, error (errmsg) ; end; 

end; 

if (-all (size (out_order) )) , 
out_order=0 ; 

elseif isstr (out_order ) , 

ii = find( lower (out_order (1) )=='dva' ) ; 
if (all (size ( ii ) ) ) , 
out_order = ii-1; 
else , 

errmsg = ['MRMV does not recognize ' ' ' out_order ( : ) . ' ... 

' ' ' as a valid OUT_ORDER . ' ] ; 

if (returnerror), rmv=errmsg? return; else, error ( errmsg) ; end; 

end; 

end ; 

if (-all (size (realonly) )) , realonly=0; else, realonly=realonly ( 1 ) ; end; 

% just use the frequencies given by the index 

if (all (w_index==0 |w_index==l) & length (w_index) ==size (resp, 1) ) , 

% we got a mask; convert to indices 
w_index = f ind { w_index) ? 

end; 

w_allw=w; 

w=w_allw (w_ index) ; 
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mrmv.m — Modified Reciprocal Modal Vector (cont.) 


% get sizes of things 
nw= length (w) ; 
no=size (resp, 2 ) /ni; 
nl=length(l) ? 

% just use resp values corresponding to frequencies given by w_index 
% stack the resp values 
r esp_a 1 lw= r e sp ; 

H= [sbys2stack{resp_allw (w_index ( : ) .size (resp_allw, 2 ) /no) zeros (nw*ni, ni-1) ) ; 

% create rhs vector 
D = zeros (nw*ni , 1) ; 
lc=conj (1) ; 
ww=w ( : . ones ( 1 . nl ) ) ; 

Di = 1 . / (ww+lc (ones {nw, 1) , : ) *sqrt (-1) ) - 1 . / (ww+1 (ones (nw, 1) . : ) *sqrt (-1) ) ; 
if (out_order~=0) , Di=Di . * ( (ww*sqrt (-1) ) . ^out_order) ; end; 
clear ( 'ww' ) ; 
if (ni>l), 

Di_index = ( 1 : nw) ' ; 

Di_index = Di_index( : , ones (l.ni-1) ) ; 

H_index = nw*no*ni + ( 1 : (ni-1) ) *nw+ <0 : (ni-2) ) *nw*ni; 

H_index = Di_index + H_index(ones (nw, 1) , : ) ; 

Di_index = Di_index{ : ) ; 

end; 

% cycle through the modes 
for k=l:nl, 

D{1 : nw) =Di ( : . k) ; 

if (ni>l) , H (H_index) =Di (Di_index, k) ; end; 
kk = f ind{ ( 1 { k ) ==1) & ( (1 :nl) <k) ) ; 
if { length (kk) ==0) . 

% single roots and the 1st instance of repeated roots 
if (realonly) , 

num = [real (D) ; imag (D) ] ; 
den = [ real (H) ; imag (H) ] ; 
else, 

num = D ; 
den = H; 

end; 

else. 

% 2nd and subsequent instances of repeated roots 
D2 = normv (Di ( : , kk) ) . ' ; 

H2 = [zeros (length (kk) .no) ( (D2 . / (mpv(l, kk) . # ) ) *ones (l.ni-1) ) . * (mpv(2 :ni,kk) . ' ) ] ; 
if (realonly) . 

num = [real ( [D;D2] ) ; imag{ [D;D2] ) 3 ; 
den = [real { [H;H2] ) ; imag( [H;H2] ) 3 ; 
else. 

num = [D;D2]; 
den = [H;H2 J ; 

end; 

end; 

% check rank 
if -all (size (warn) ) , 

denrank = rank (den); 
i f ( denrank<min ( s i ze ( den ) ) ) , 

warn = sprintf { [ ‘MRMV warning: rank deficiency (matrix is' ... 

' %g-by-%g, rank is %g) . '3 .size (den) .denrank) ; 

end; 

end; 

% compute it 
rmve = den \ num; 

rmvn=rmve { 1 : no) ; rmvn= rmvn/ norm ( rmvn ) ; 

mpfn= [ 1 ; -rmve (no- 1+ (2 : ni ) ) ] ; mpfn=mpfn/norm (mpfn) ; 

rmv ( : . k) = rmvn ; 

mpv ( : . k) =mpfn; 

end; 

% version 2. faster, but much more memory and doesn't handle repeated roots. 

%lc=conj ( 1 ) ; 
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mrmv.m — Modified Reciprocal Modal Vector (cont.) 


%ww=w{ : , ones ( 1 , length {!))); 

%11=1 (ones (nw, 1 ) , : ) ; 

%lc=lc (ones (nw, 1 ) , : ) ; 

%Di = 1 . / (ww+lc*sqrt ( -1 ) ) - 1 . / (ww+ll*sqrt ( -1 ) } ; 
%k=(l:nl); k=k (ones (ni-1 , 1 ) , : ) ; k=k(:)'; 

%DD = [Di(:,k); zeros (nw* (ni-1) , nl* (ni-1) )] ; 
%DD2=zeros (nw* (ni-1 ) , ni*nl ) ; 

%DD2 { : ) =DD ( : ) ; clear ('DD')? 

%k= ( 1 : (ni-1) ) ' ? 

%k2= (0 : (nl-1) )*ni; 

%k=k( : , ones (l,nl) ) +k2 (ones (ni-1, 1) , : ) ; 

%xq = resp_allw (w_index, : ) 

%[mq,nq] = size(xq); 

%H=zeros (mq*no, nq/no) ? 

% [ ii, j j ] =meshgrid ( ( ( 1 : no) -1) *nq*mq/no / 1 : mq) ; 
%[ii / jjl =meshgrid ( ( (1 : (nq/no) ) -1 ) *mq, ii { : ) + j j ( : ) ) ; 
%H ( : ) =x { ii { : ) + j j ( : ) ) ; 

%clear ( v ii' , ' j j ' , 'xq' ) ,* 

%H= (H [ zeros (nw, nl* (ni-1 ) ) ; DD2 ( : , k (:)')]] ? 

%clear { *DD2 ' ) ; 

%rmve = H \ [Di; zeros (nw* (ni-1) , nl) ] ; 

%clear ( 'H' ) ; 

%rmv=rmve (1 :no, : ) ; rmv = rmv /norm ( rmv) ; 

%k= (no+ (1: (ni-1) ) ) ' ; k2= (0 : (nl-1) ) * (no+nl* (ni-1) ) ; 
%k=k( : , ones ( 1 , nl ) ) +k2 (ones (ni-1 , 1 ) , : ) ; 

%mpv= zeros (ni-1 , nl ) ; mpv ( : ) =rmve ( k { : ) ) ; 

%mpv= [ ones { 1 , nl ) ; mpv ] ; mpv=mpv/norm ( mpv ) ; 


% If the system is "square' and the sensors and actuators are collocated, 
% then we could "fix' the last mode. Note that this would be cheating, 

% but it seems to produce consistently better results. We do not do it 
% here because the general system is not square and collocated. 

%if (size (rmv, 1) ==size (rmv, 2) ) , 

% rmv ( : , no ) = [ - inv ( rmv (1: (no- 1 ) , 1 : (no-1)) .')*{ rmv { no , 1 : ( no- 1 ) ) . ' ) ; 1 ] ? 

% rmv(:,no) = rmv ( : , no) /norm ( rmv ( : , no) ) ; 

%end; 

% compute the rest of the outputs 
if (nargout>=3 ) , 

%uf rf =? ( #rows= length (w_allw) , #cols=nl* (ni+ (ni>l ) ) ) 

%ufrf is the filtered (hopefully, uncoupled) frequence responses 
[um,un) = size ( resp_allw) ? 
uf r f =sbys2s tack (resp_allw, un/no) *rmv; 
ufrf =stack2sbys (ufrf , un/no) ; 
if (ni>l ) , 

kl= (1 : nl : (nl*ni) ) 
k2=l : nl ; 

k=kl ( : , ones ( 1 , nl) ) +k2 (ones (ni, 1) , : ) -1 ; 
k=k ( : ) ' ; 

k2=k2 (ones (um, 1) , : ) ; k2=k2(:)'; 
utmp=zeros (um, nl) ? 

utmp ( : ) =sum (sbys2 stack (ufrf (: ,k) , size (k, 2 ) /ni ) ' . *mpv { : , k2 ) ) ' ; 
ufrf=[ufrf utmp); clear (' utmp ') ; 

end; 

if (nargout>=4 ) , 

%robind=? (#rows=no, #cols=nl) 

%robind is the matrix of modal filter robustness indicators 
for k=l:no, 

h_norm (k, 1 ) =norm (resp ( : , k+no* (0 : (ni-1 ))),' fro ') ; 

end; 

Di_norm = normv(Di) ; 
for k=l:nl, 

robind ( : , k) =abs ( rmv ( : , k) . *h_norm) /Di_norm ( 1 , k) ; 
if (ni>l ) , robindt : , k) =robind( : , k) *mpv(l, k) ; end; 

end; 

if (nargout>=5 ) , 

condnum = normv { robind) ; 
if (nargout>=6) , 

% compute the error and correlation info 
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mrmv.m — Modified Reciprocal Modal Vector (cont.) 


k = (l;nl)'; k=k < : , ones ( 1 , ni+ (ni>l ) ) ) ; k=k{:)'; 
k2 = mpv ( 1 , : ) ; 

k2 = mpv ./ k2 (ones ( size (mpv, 1 ), 1 ) , :) ; 

k2 = [ k2 ( : ) . ' ones {1 , nl* {ni>l ) } ] ; 

ufrf_tmp = ufrf (w_index, : ) . /k2 (ones (nw, 1 ) , : ) ; 

err_calc = zeros (nl, ni+ (ni>l) ) ; 

cor_calc = zeros (nl , ni+ (ni>l )) ; 

err_calc ( : ) = (normv(Di { : , k) -ufrf_tmp) . /Di_norm(l, k) ) . ' ; 
ttmp=sum (conj (Di ( : , k> ) . *ufrf„tmp) ; 

ttmp=real ( ttmp. *conj (ttmp) ) . / (Di_norm (1, k) . *normv(ufrf_tmp) ) . A 2 ; 
cor_calc ( : ) = ttmp . ' ; 

s am e_ index = ( length (w_index) == length (w_allw) ) ; 
if (same_index) , 

same_index = all (w_index== ( (1 : length (w_allw) ) ' ) ) ; 

end; 

if (same_index) , 

err_total = err_calc; 
cor_total = cor_calc; 
else, 

err_total = zeros (nl , ni+ (ni>l )) ; 
cor_total = zeros (nl , ni+ (ni>l )) ; 
ww=w_allw ( : , ones (1 , nl ) ) ; 

Di = 1 . / (ww+lc {ones (length (w_allw) , 1> , :) *sqrt (-1) ) ... 

- l./(ww+ 1 (ones { length (w_allw) , 1) , :) *sqrt {-1) ) ; 
if (out_order~=0) , Di=Di . * ( (ww*sqrt (-1) > . ^out^order) ; end; 
clear ( * ww' ) ; 

Di_norm = normv(Di); 

ufrf_tmp = ufrf . /k2 {ones {size (ufrf , 1) , 1) ,:) ; 
err_total { : ) = {normv{Di ( : , k) -uf rf_tmp) . /Di_norm(l, k) ) . ' ; 
ttmp=sum(conj {Di { : , k) ) . *ufrf_tmp) ; 

ttmp=real (ttmp.*conj (ttmp) ) . / (Di_norm(l, k) . *normv(ufrf_tmp) ) . *2; 
cor__total { : } = ttmp.'; 

end; 

clear ( 'ufrf_tmp' , ' ttmp' ) ; 

end; 

end; 

end; 

end; 
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8.1.2 mrmv_test_adapt .m — Evaluation of MRMV 

mrmv_test_adapt evaluates the MRMV method by testing its performance for various 
changes in the system characteristics. This is done, without loss of generality, on a 6 degree of 
freedom system. 

% mrmv_test_adapt . m 
% 

% Show examples of how the output of the modal filter degrades as 
% the true modeshapes change, even assuming no noise in the system 

% 

% Also show examples of how the modal filter still works when there 
% is a complete frequency shift, or modal damping ratios change 

% 

% This assumes complete sensor and input knowledge 
% Copyright (c)1996, Erik A. Johnson < j ohnsone@uiuc . edu> , 1/20/96 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


% Initial stuff 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%*%%%% %%%%%%%%%%% 


% printer vs. screen output: set to for screen; 

% 

outdev= ' ' ; %str2mat ( ' eps * , 'ps ' ) ? 


to (*eps','ps'} for printer 
NOTE: not 'epsc' or 'psc' ! ! 


% some parameters 
n=6 ; 

w= [0; logspace (-1,1,401).']; 
realrmv = 1 ; 


% Ground test 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%% 

% get the system 

[a , b, c , d, M, C, K, PP, 1] =ndof (n, [ ] , 'displacement' ) ; 

% simulate the ground test; assume it's perfect 
resp = zeros { length (w) , n^2 ) ? 

for k=l :n, resp ( : , ( 1 : n) + (k-1) *n) =f reqresp {a f b, c , d, k, sqrt ( -1 ) *w) ; end; 

% compute the modal filter using the w interesting* part of the freq. range 
rmv = mrmv ( 1 { 1 ; n) , w, resp, n, w>= . l&w<=3 , ' displacement realrmv) 
rmv_exact = PP. ' ; 

rmv_exac t = rmv_exact * diag {sign (rmv_exact ( 1, :}. /rmv ( 1 , :)) ) 
rmv_rel_err = (rmv-rmv_exact) ./rmv_ exact 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

% do several tests with one element of mass matrix modified 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

massf ractions = [1 1.2 1.5 2]; 

nmfs = length (massf ractions) ; 

ufrfs = zeros { length (w) , 2*n*nmfs) ; 

ufrfs2 = zeros (length (w) , 2*n*nmfs) ; 

PPs = zeros (n, n*nmfs ) ; 
wn = zeros (n, nmfs ) ; 
for k=l:nmfs, 

currmass f rac=ones ( 1 , n) ; cur rmass f rac {ceil (n/2) ) =massf ractions { k) ; 
[a,b,cl,dl,M,C,K, PP] =ndof {n, [ ] , 'displacement' , currmass f rac ) ; 
[a f b,c2,d2,M,C,K, PP] =ndof (n, [] , 'acceleration' , currmass f rac ) ; 
wn { : , k) = f lipud{sort (sqrt (eig (inv (M) *K) ) ) ) ; 

PPs ( : , { 1 : n) + (k-1) *n> = PP. ' ; 

curresp = f reqresp ( a , b, [cl ; c2 ], [dl ; d2 ], 1 , sqrt { -1) *w) ; 
ufrfs ( : , (l:n) + (k-1) *n) = curresp {:, 1 : n) * rmv; 

ufrfs2 ( : , (1 :n) + (k-1) *n) = curresp {:, 1 : n) * PP. ' ; 

ufrfs{ : , {1 :n) + (k-l+nmfs) *n) = curresp {:, n+1 : 2*n) * rmv; 

uf rf s2 ( : , (1 : n) + (k-l+nmf s) *n) = curresp (:, n+1 : 2 *n) * PP.'; 

end; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%% 
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mrmv_test_adapt.m — Evaluation of MRMV (cont.) 


% plot the results 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

% scale for comparison purposes 

tmp=abs ( [uf rfs ( 2,l:nmfs*n) ufrfs( length (w) , nmfs*n+l : 2*nmfs*n) 3 ) ; 
ufrfs =ufrfs . /tmp (ones (length (w) , 1) ,:) ; 

tmp=abs ( (uf rf s2 (2 , 1 :nmf s*n) uf rf s2 (length (w) , nmfs*n+l : 2*nmfs*n) ] ) ; 
ufrf s2=ufrf s2 . /tmp (ones ( length(w) , 1) , : ) ? 
out types = ' da ' ; 

pcolors = (l:nmfs) . ' * [1 1 1] / (nmfs+ . 05) ; 
if (all (size (outdev) )) , pcolors=l-pcolors; end; 
for freqnum = [1 6] ; 

freqshifts = (wn( freqnum, : ) /wn{ freqnum, mass fractions ==1) -1) *100; 
sprint f format = ['%' num2str (max (dif f ( f ind( [ ' 1 ... 

sprintf ( * % . If ' , freqshifts) ] == ' *)))“1) '.lf\n']; 
legendText = sprintf (sprintf format, freqshifts) ; 

legendText = strrep (strrep(strrep( legendText , ' ' , ' ... 

sprintf (' \n' ) , sprintf ('%% freq. shiftNn' ) ) ; 
legendText = str2strmat ( legendText) ; 

legendText = str2mat (setstr ( (ones (size (legendText, 1) , 1) *' \9\ times' legendText]), ... 

1 \times\9{ > ' , ' \times\9estimated' , * \times\9actual ' ) ; 
for k=l : length (out types ) , 
outtype = outtypes(k); 

% plot magnitude 
elf ( ' reset ' ) ; 

h=loglog (w, abs (ufrf s ( ; , ( freqnum: n : n*nmfs) + (k-1) *n*nmf s) ) , ... 

w, abs (ufrf s2 ( : , ( freqnum: n: n*nmfs ) + (k-1) *n*nmfs) ) , ' -- ' ) ? 

% set the colors 

for kk=l : nmf s , set(h([kk kk+nmf s] ), 'Color ' ,pcolors (kk, :)) ; end; 
set (gca, 'XLim' , [ . 1 5]); 

sxlabel ( ' \ times \ 12 frequency ( { \smaller\frac{rads} (sec) } ] ' ) ; 
sylabel {' \times\ 12 transfer function magnitude'); 

% do the legend 

ax=axis; Inline (ax ( 1) , ax (3 } , 'Visible' , 'off'); 

(hleg, hlines ] =s legend ( [ . 71 . 25] , (h(l:nmfs) ; l;h( [1 1+nmfs] ) 3 , legendText) ; 
set (hlines ( length (hlines ) -2 ) , 'Visible ' , ' of f ' ) ; 
set (hlines ( length (hlines ) +(-1:0)) , 'Color ' , ' w' ) ; 

% print magnitude plot 

filename = ( *mrmv_test_adapt_lmass_' outtype num2str (n+1- freqnum) 'mag']; 
figure(gcf); drawnow; if (-all (size (outdev) )) , title (filename) ; pause; 
else, for od=l: size (outdev, 1 ) , outd=deblank ( outdev (od, :)) ; 
if strcmp (outd, 'ps ' ) , title ( filename) ; drawnow; end; 
printsto ( [ ' -d' outd ’ c ' ] , [ f ilename outd]); end; end; 

% adjust phases for prettiness 

angle_ufrfs = angle (ufrfs ( :,( freqnum :n: n*nmfs) + (k-1) *n*nmfs) ) ; 
angle_ufrf s ( : , 2 : 3 ) =unwrap (angle_uf rf s ( : , 2 : 3 ) ) ; 

angle_ufrfs2 = angle (ufrfs2 {:,( freqnum:n: n*nmfs) + (k-1) *n*nmfs) ) ; 
mask = angle_ufrf s (2 , : ) <-10*eps | angle_ufrfs(2,:)>=pi-10*eps; 
angle_uf rfs (:, mask) = angle_uf rfs (:, mask) ... 

- ones ( length (w) , 1) *f loor (angle_uf rf s (2, mask) /pi) *pi; 
mask = angle_ufrf s2 ( 2 , : ) <-10*eps | angle_uf rf s2 (2 , : ) >=pi-10 w eps; 
angle_uf rf s2 { : , mask) = angle_uf rf s2 ( : , mask) ... 

- ones ( length (w) , 1) *floor (angle_uf rf s2 (2, mask) /pi) *pi; 

% plot phase 

elf ( * reset ' ) ; 

h=semilogx <w, angle_uf rf s , w, angle_uf rf s2 ,'--'); 

% set the colors 

for kk=l:nmfs, set(h([kk kk+nmfs] ), 'Color pcolors (kk, :)) ; end; 
set (gca, ' XLim' , [ . 1 5]); 

sxlabel ( ' \times\ 12 frequency [ { \ smaller \frac{ rads} {sec} } ]'); 
sylabel ( 1 \times\12transf er function phase (rads]'); 

% do the legend 

ax=axis ; l=line (ax ( 1) , ax ( 3 ) , 'Visible ' , ’ of f ' ) ; 

[hleg, hlines ] =s legend ( (.33 1- . 3*k] , [h ( 1 : nmfs) ; l;h ( [1 1+nmfs] ) ] , legendText) ; 
set (hlines ( length (hlines) - 2 ) , 'Visible' , 'of f ' ) ; 
set (hlines ( length (hlines ) +( -1 : 0 )),' Color w' ) ; 

% print phase plot 

filename = ( 'mrmv_test_adapt_lmass_' outtype num2str (n+1 -freqnum) 'pha']; 
figure(gcf); drawnow; if (-all ( size { outdev) )) , title { filename) ; pause; 
else, for od=l : size (outdev, 1 ) , outd=deblank ( outdev ( od, :)) ; 
if strcmp (outd, 'ps ') , title ( filename) ; drawnow; end; 


Appendix A: Computer Codes 


87 


mrmv_test_adaptm — Evaluation of MRMV (cont.) 


printsto ( [ ' -d' outd 'c' ] r [filename outd] ) ; end; end; 

end; 

end; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%% 
% do several tests with all elements of mass matrix modified 

massfractions = [1 1.2 1.5 2] ; 
nmfs = length (massfractions) ; 
ufrfs = zeros (length (w) ,2*n*nmfs) ; 
ufrf s2 = zeros ( length (w) , 2*n*nmf s) ; 

PPs = zeros (n, n*nmfs ) ; 
wn = zeros (n, nmfs ) ; 
for k=l:nmfs, 

[a, b, cl, dl , M, C, K, PP] =ndof (n, [ ] , ' displacement ' , massfractions (k) ) ; 
[a f b,c2,d2,M,C,K, PP] =ndof (n, [] , 'acceleration' , massfractions (k) ) ; 
wn { : , k) = f lipud ( sort (sqrt (eig ( inv (M) *K) ) ) ) ; 

PPs { ; , ( 1 : n) + (k-1 ) *n) = PP . ' ; 

curresp = f reqresp (a , b , [ cl ; c2 ] , [dl ; d2 ] , 1 , sqrt ( - 1 ) *w) ; 
ufrfs ( : , (1 :n) + (k-1) *n) = curresp (:, 1 : n) * rmv; 

ufrfs2 ( : , (1 :n) + (k-1) *n) = curresp (:, 1 : n) * PP.'; 

ufrfs ( : , (1 :n) + (k-l+nmfs) *n) = curresp (:, n+1 : 2*n) * rmv; 

ufrf s2 ( : , ( 1 : n) +( k-l+nmfs ) *n) = curresp (:, n+1 ; 2*n) * PP. ' ; 

end; 



freqnum = 1; 

% scale for comparison purposes 

tmp=abs{ [ufrfs ( 2,l:nmfs*n) ufrfs( length (w) , nmfs*n+l : 2*nmfs*n) ]) ? 
ufrfs =ufrfs , /tmp (ones ( length (w) , 1) ,:) ; 

tmp-abs { [ufrf s2 {2, 1 :nmfs*n) ufrf s2 { length (w) , nmf s*n+l : 2*nmf s*n) ] ) ; 
uf rf s2=uf rf s2 . /tmp (ones ( length (w) , 1) , : ) ; 
ou t types = ' da ' ; 

pcolors = ( 1 : nmfs ) . ' * [ 1 1 1) / (nmf s+ .05) ; 
if (all (size (outdev) )) , pcolors=l-pcolors ; end; 

f reqshif ts = (wn ( freqnum, :) /wn ( freqnum, massf ractions==l ) -1) *100; 
sprint f format = [ ' % ' num2str (max (dif f ( find ( [ ' ' sprint f ( v % . If , ... 

f reqshif ts )]== ' ' ) ) ) — 1 ) ’.lf\n']; 

legendText = sprintf ( sprintf format , f reqshif ts ) ; 
legendText = strrep ( strrep ( strrep ( legendText , ' x ) , 

sprintf (' \n' ), sprintf ( '%% freq. shift\n')); 
legendText = str2strmat ( legendText ) ; 

legendText = str2mat ( setstr ( [ones ( size (legendText , 1 ), 1 )*' \9\ times ' legendText]), 

' \ times \ 9 { > ' , # \times\9estimated' , ' \ times\9actual ' ) ; 
for k=l : length (out types ) , 
outtype = outtypes(k); 

% plot magnitude 
elf ( ’ reset ' ) ; 

h=loglog (w, abs (uf rf s ( : , ( f reqnum: n: n*nmf s ) + (k-1) *n*nmf s) ) , ... 

w, abs (uf rf s2 ( : , ( freqnum: n: n* nmf s) + (k-1) *n*nmf s) ),'--'); 

% set the colors 

for kk=l:nmfs, set(h([kk kk-^nmf s ]),' Color pcolors (kk, :)) ; end; 
set (gca, 'XLim' , [ . 1 5]); 

sxlabel ( ' \ times \12 frequency [ {\smaller\frac{rads} (sec) } ] ' ) ; 
sy label ( v \ times \ 12 transfer function magnitude'); 

% do the legend 

ax=axis; l=line (ax (1) , ax (3 ) , ' Visible' , ' of f ' ) ; 

[hi eg , hi ines ] = s legend ([.33 .35],[h(l: nmfs ) ; 1 ; h ( [1 1+nmf s ] ) 3 , legendText ) , 
set (hlines ( length (hi ines) -2 ) , 'Visible' , 'of f ' ) ; 
set (hlines { length (hlines) +(-1:0)),' Color ' , ' w' ) ; 

% print magnitude plot 

filename = [ * mrmv_test_adapt_allm_' outtype num2str (n+1- freqnum) 'mag']; 
figure (gcf ) ; drawnow; if (-all ( size ( outdev) )) , title ( filename) ; pause; 
else, for od=l : size (outdev, 1) , outd=deblank { outdev (od, :)) ; 
if strcmp (outd, 'ps ' ) , title ( filename) ; drawnow; end; 
printsto ([ 1 -d' outd * c ' ] , [ f ilename '.' outd]); end; end? 

% adjust phases for prettiness 

ang 1 e_u f r f s = angle(ufrfs( :,( freqnum: n : n*nmfs ) + (k-1 )*n*nmfs)); 
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mrmv_test_adapt.m — Evaluation of MRMY (cont.) 


angle_uf rf s { : , 2 : 3 ) =unwrap (angle_uf rf s ( : , 2 : 3 ) ) ; 

angle_ufrfs2 = angle (ufrfs2 {:,{ freqnum: n : n*nmfs )+ (k-1) *n*nmfs) ) ; 
mask = angle_uf rfs {2 , : ) <-10*eps | angle_ufrf s <2 , : ) >=pi-10*eps; 
angle_uf rf s { : , mask) = angle_uf rfs {:, mask) ... 

- ones (length(w) , 1) *f loor (angle_jif rf s (2 ,mask) /pi) *pi; 
mask = angle_uf rf s2 ( 2 , : ) <-10*eps | angle_uf rf s2 (2 , : ) >=pi-10*eps; 
angle_ufrfs2 { : ,mask) = angle_uf rf s2 { : , mask) ... 

- ones ( length (w) , 1 ) * floor (angle_ufrf s2 (2 r mask) /pi ) *pi; 


% plot phase 

elf ( 'reset ' ) ; 

h=semilogx(w, angle_ufrfs, w, angle_ufrf s2 , '--'); 

% set the colors 

for kk=l:nmfs, set(h([kk kk+nmf s) ) , ' Color pcolors (kk, :)) ; end; 
set ( gca , ' XLim ' , [ . 1 5 ) ) ? 

sxlabel ( ’ \ times \ 12 frequency [ { \ smaller \frac {rads} {sec} } ] ' ) ; 
sylabel ( ’ \ times M2 transfer function phase [rads] ' ) ; 

% do the legend 

ax=axis; l=line (ax(l) , ax(3) , 'Visible* , 'of f ' ) ; 

{hleg, hlines] =slegend ( 1.33 . 5] , lh(l:nmfs) ; l;h( [1 1+nmfs] ) ] , legendText) ; 
set (hlines { length (hlines ) - 2 ) , 'Visible ' , ' of f ' ) ; 
set (hlines ( length (hlines ) + (-1 : 0) ) , 'Color ' , ' w' ) ; 

% print phase plot 

filename = [ 'mrmv_test_adapt_allm_' outtype num2str (n+l-freqnum) 'pha']; 
figure(gcf); drawnow; if (-all (size (outdev) )) , title ( filename) ;pause; 
else, for od=l ; size (outdev, 1) , outd=deblank (outdev (od, :)) ; 
if strcmp (outd, 'ps ' ) , title ( filename) ; drawnow; end; 
printsto ( [ * -d' outd ‘c'l , [filename outd]); end; end; 

end; 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

% do several tests with modal damping ratio modified 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

mass fractions = [1 1.2 1.5 2]? 

nmfs = length (massfractions) ; 

ufrfs = zeros (length (w) , 2*n*nmfs) ; 

ufrfs2 = zeros ( length (w) , 2 *n*nmfs) ; 

PPs = zeros (n, n*nmfs ) ; 
wn = zeros (n, nmfs ) ; 
for k=l : nmfs , 

[a, b, cl , dl, M, C, K, PP] =ndof (n f [ ] , 'displacement ' ) ; 

[a , b, c2 , d2 , M, C, K, PP]=ndof (n, [ ] , 'acceleration' ) ; 

Z = diag( [massfractions (k) ;ones(n-l, 1) ]) * (inv(PP) '*C*inv(PP) ) ; 

C = PP ' *Z*PP; 

a(n+l:2*n,n+l:2*n) = -inv(M) # C; 
c2 ( : , n+1 : 2*n) = -inv{M)*C; 

wn(:,k) = diag(Z)./flipud(sort(sqrt(eig(inv(M)*K))))/2; 

PPs<: , (l:n)+(k-l)*n) = PP.' ; 

curresp = f reqresp (a, b, [cl;c2] , [dl;d2] , 1, sqrt (-1) *w) ; 
ufrfs( : , ( 1 : n) + (k-1 ) *n) = curresp (;, 1 : n) * rmv; 

uf rf s2 ( : , (1 ; n) + (k-1) *n) = curresp (:, 1 : n) * PP. ' ; 

ufrfs( : , ( 1 ; n) + {k~l+nmf s) *n) = curresp (;, n+1 : 2*n) * rmv; 

ufrfs2 ( : , (1 :n) + (k-l+nmf s) *n) = curresp (:, n+1 : 2*n) * PP. ' ; 

end; 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% plot the results 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
freqnum = 1 ; 

% scale for comparison purposes 

tmp=abs ( [ufrfs ( 2,l:nmfs*n) ufrfs( length (w) , nmfs*n+l : 2*nmfs*n) ]) ; 
ufrfs =ufrfs . / tmp (ones ( length (w) , 1 ),:) ; 

tmp=abs ( [ufrf s2 (2,1: nmf s*n) uf rf s2 ( length (w) , nmf s*n+l : 2*nmf s*n) ] ) ; 
ufrf s2=ufrf s2 . / tmp (ones (length (w) , 1) , : ) ; 
out types = ' da ' ; 

pcolors = ( 1 : nmf s ) . ' * [ 1 1 1] / (nmfs+ . 05) ; 
if (all (size (outdev) )) , pcolors=l-pcolors ; end; 

freqshifts = (wn ( freqnum, :) /wn ( freqnum, massf ractions==l ) -1) *100; 
sprintf format = ['%' num2str (max(dif f (f ind( [ ' ' sprintf ( ' % . 1 f ' , ... 

freqshifts) ]==' ‘)))-l) '.lf\n']; 

legendText = sprintf ( sprintf format , freqshifts ) ; 
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mrmv_test_adapt.m — Evaluation of MRMV (cont.) 


legendText = strrep (strrep (strrep ( legendText , ' ' , * ... 

sprintf ( * \n' ) , sprintf ( ' %% damping increase\n' ) ) ; 
legendText = s tr 2 strmat (legendText) ; 

legendText = str2mat (setstr { [ones ( size ( legendText , 1 ), 1 )*' \9\times ' legendText]), . 

' \times\9 { ) ' , ' \times\9estimated' , ' \times\9actual ' ) ; 
for k=l : length (outtypes) , 
outtype = outtypes (k); 

% plot magnitude 
elf { * reset ' ) ; 

h=loglog(w, abs (ufrfs ( : , { f reqnum: n : n*nmf s ) + (k-1) *n*nmfs) ) , ... 

w, abs (uf rfs2 ( : , { f reqnum : n: n*nmfs ) + (k-1 ) *n*nmfs) ) , 

% set the colors 

for kk=l:nmfs, set{h((kk kk+nmf s ]),' Color ', pcolors (kk, :)} ; end; 
set (gca , ' XLim' , [ . 1 5]); 

sxlabel { ' \ times \ 12 frequency [ { \smaller\frac { rads) (sec) ) ] ' ) ; 
sylabel ( * \ times \ 12 transfer function magnitude'); 

% do the legend 

ax=axis; l=line (ax(l) ,ax(3) , 'Visible' ,'off'); 

(hleg, hlines ] =slegend( (.31 .75] , [h(l:nmfs) ; 1; h ( [1 1+nmfs] ) ] , legendText) ; 
set (hlines (length (hlines) -2) , 'Visible' , 'of f ' ) ; 
set (hlines ( length (hlines ) +(-1:0)), 'Color' , ' w' ) ; 

% print magnitude plot 

filename = [ 'mrmv_test_adapt_damp_' outtype num2str (n+l-f reqnum) 'mag']; 
figure(gcf); drawnow; if (-'all (size (outdev) )) , title ( filename) ; pause ; 
else, for od=l : size (outdev, 1) , outd=deblank (outdev (od, :)) ; 
if strcmp(outd, 'ps ' ) , title ( filename) ; drawnow; end; 
printsto { [ * -d' outd * c '],[ filename outd] ) ; end; end; 

% adjust phases for prettiness 

angle_uf rf s = angle (ufrfs ( ; , (freqnum:n: n*nmf s) + (k-1) *n*nmf s) ) ; 
angle^uf rf s ( : , 2 : 3 ) =unwrap (angle_uf rf s ( : , 2 : 3 ) ) ; 

angle_ufrfs2 = angle (ufrfs2 (:, ( f reqnum: n:n*nmfs) + (k-1) *n*nmfs) ) ; 
mask = angle_ufrfs (2 , : ) <-10*eps | angle_ufrfs(2,:)>=pi-10*eps; 
angle_ufrf s ( : ,mask) = angle_uf rf s ( : , mask) ... 

- ones (length (w) , 1) *f loor (angle_ufrfs (2 ,mask) /pi) *pi; 
mask = angle_ufrfs2 (2 , ; ) <-10*eps | angle_ufrfs2(2,:)>=pi-10*eps; 

angle_ufrf s2 ( : ,mask) = angle_uf rf s2 ( : , mask) ... 

- ones ( length (w) , 1) * floor (angle_uf rf s2 (2, mask) /pi) *pi 


% plot phase 

elf ( * reset ' ) ; 

h=semilogx (w, angle_uf rf s , w, angle_uf rf s2 , ' — ' ) ; 

% set the colors 

for kk=l : nmf s , set(h([kk kk+nmf s] ),' Color ', pcolors (kk , :)) ; end; 
set (gca, ' XLim' ,[. 1 5]); 

sxlabel ( * \times\ 12 frequency [ { \smaller\f rac (rads } {sec} } ]'); 
sylabel (' \times\ 12 transfer function phase [rads]'); 

% do the legend 

ax=axis ; l=line (ax ( 1 ) , ax ( 3 ) , 'Visible ','off'); 

[hleg, hlines ]=slegend( [ . 4 . 45] , [h(l:nmfs) ; 1 ; h ( [1 1+nmfs] ) ] , legendText) ; 
set (hlines (length (hlines) -2) , 'Visible' ,'off'); 
set (hlines ( length (hlines ) + (-1:0)), 'Color' , 'w' ) ; 

% print magnitude plot 
% print phase plot 

filename = ( 'mrmv_test_adapt_damp_' outtype num2str (n+l-f reqnum) 'pha']; 
figure (gcf); drawnow; if (-all ( size (outdev) }) , title ( filename) ;pause; 
else, for od=l : size (outdev, 1 ) , outd=deblank ( outdev (od, :)) ; 
if strcmp (outd, 'ps ' ) , title ( filename) ; drawnow; end; 
printsto ( [' -d' outd ’ c '],[ filename outd]); end; end; 

end; 
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8.1.3 mrmvtool . m — Graphical User Interface for mrmv function 

mrmvtool is a graphical user interface (GUI) front-end to mrmv. It is run just by executing 
it with no arguments. Computing reciprocal modal vectors, filtering data, choosing spectral lines 
to use in computing the vectors, and plotting filtered and unfiltered data can be done with 
mrmvtool. 

function [h, h2 , h3 , h4 , h5 , h6 ] =mrmvtool (action, f lag, val , arg4 , arg5 , arg6, arg7) 

% MRMVTOOL Graphical User Interface for MRMV (modified reciprocal modal filter) 

% 

% MRMVTOOL provides a graphical user interface to MRMV (modified 
% reciprocal modal filter) . 

% 

% Call MRMVTOOL with no arguments to begin. 

% 

% Call MRMVTOOL DEMO for a demonstration (requires mrmvtool_demo.m) . 

% 

% Requires Matlab 4.2 and the UITools toolbox from The MathWorks . 

% Copyright (c)1996, Erik A. Johnson < j ohnsone@uiuc . edu>, 3/30/96 

if (nargin==l) , if strcmp ( lower (action) , ' demo ') , mrmvtool_demo; return; end; end; 

% input arguments 
if (nargincl) , action=[]; end; 
if (nargin<2), flag=[]; end; 
if (nargin<3), val= [ J ; end; 

if isempty (action) , action= ' initialize ' ; end; 

% some constants 
mrmv_name = 'MRMV Tool'; 
mrinv_options = 'MRMV Tool Options'; 
bgcolor = [1 1 1]*.75; 
bgcolor_edit = [1 1 1]*.9; 
bgcolor_frame = [1 1 1]*.625; 
toolbarheight = 0.07; 
buttontextsize = 10; 
plot Iocs = [.06 .07 .92 .55]; 
extravertspace = .02; 

indiceslineserase = 'background'; %'normal' 
debugging = 0 ; 

% check for existing tool 

mrmv_fig = findobj (get (0, 'Children' ),' flat 'Name' ,mrmv_name) ; 

% check possible actions 

if ( isempty (mrmv_fig) | strcmp (action, ' initialize ')) , 

% take care of existing figure 
if -isempty (mrmv_fig) , 
if (debugging) , 
close ( * all ' ) ; 
else, 

figure (mrmv_f ig) ; 

axes (findobj (mrmv_fig, 'Type' , 'axes' , 'Tag' , 'zoom' ) ) ; 
return; 

end; 

end; 

% initialize figure 

mrmv_fig = figure ( 'Visible' , 'of f' , 'Color' , bgcolor, ... 

'Name' , mrmv„name, ' Interruptible' , 'yes' , ... 

'Nextplot ' , ' new' , 'NumberTitle ' , ' of f ' , ... 

' KeyPressFcn ' , ' mrmvtool { ' * keycall ' ' ) ' , ... 

' WindowButtonMot ionFcn ' , 'mrmvtool ( ' 'moved' ' ) ' , ... 

'Units ' , 'pixels ' ) ; 

set (mrmv_f ig, ' Pointer ' , 'watch' ) ; drawnow; 
if (debugging & (exist ( 'paperaxes ') >1 )) , paperaxes; end; 
colormap ( gray (17) ) ; 
f ig_ar=get (mrmv_f ig, ' Position' ) ; 

if (fig_ar (3) ==0) , fig_ar=l; else, f ig_ar=fig_ar (4) /f ig_ar (3) ; end; 
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mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


% some callback functions 

computecb = [ 'mrmvtool ( ' "compute' ' ' . . 

' , eval (mrrnvtool ( ' 'getstr ' 
* , eval (mrmvtool ( ' ' getstr ' 
1 , eval (mrmvtool ( ' 'getstr ' 
' , eval (mrmvtool ( ' ' getstr ' 
* , eval (mrmvtool ( ' ' getstr ' 
* ) ' ] i 

plotcb = [ 'mrmvtool ( w plot *’ * ... 

1 , eval (mrmvtool ( * 'getstr' ' , ' 
' , eval (mrmvtool ( * 'getstr' ' , ' 
4 , eval (mrmvtool ( * ' getstr ' ' , ' 
‘ ; 


' , ' 'unfiltered' ' ) , 
' , ' ' f reqs ' ' ) , 

' , ' ' indices ' ' ) , 

' , ' ' nref s ' ' ) , 

* , ' 'poles ' ' ) , 


'unfiltered' '),''' 
' f reqs ' ' ) , ' ' ' 

' indices ' ' ) , ' ' ' 


err ' ''''*) 
err ' ''''') 
err ' '*''') 
err ' 


' ' 'err' . 
' ' ' err . 
' ' 'err' . 


% initialize menus 

mrmv_menu = uimenu (mrmv_f ig , ' Label ' , ' MRMVTool ' ) ; 

uimenu (mrmv_menu , ' Label ' , ' Plot ' , ' Interruptible ' , ' yes ' , ' CallBack ' , plotcb) ; 

uimenu (mrmv_menu , 'Label', 'Compute RMVs' , 'Interruptible', 'yes', 'CallBack' , computecb) 

uimenu ( mrmv_menu , 'Label' , 'Zoom In' , 'Interruptible' , 'yes' , ... 

'Separator' , 'on' , 'CallBack' , 'mrmvtool ( * 'zoom' ' , ' 'in' ' ) ' ) ; 
uimenu (mrmv_menu, 'Label' , 'Zoom Out' , 'Interruptible' , 'yes' , ... 

'CallBack ' , 'mrmvtool ( ' ' zoom' ' , ' ' out '')'); 
uimenu (mrmv_menu, 'Label', 'Restore Limits', 'Interruptible', 'yes', . . . 

1 CallBack ' , 'mrmvtool ( ' ' zoom' ' , ' ' restore '')'); 
uimenu (mrmv_menu, ' Label ' , ' Options Interruptible ' , 'yes ' , ... 

’Separator' , 'on' , 'CallBack' , 'mrmvtool ( ’ 'options' ' ) ' ) ; 
ui menu (mrmv_menu, 'Label' ,' Exit MRMV' ,' Interruptible' , 'yes ' , ... 

'Separator' , 'on' , 'CallBack' , 'mrmvtool ( * 'exit' ' ) ' ) ; 
drawnow ; 


% initialize axes 

axl = axes ( ’Position' ,plotlocs, 'XColor' , 'k' , 'YColor' , 'k' , 'Color' , 'w' , ... 

* DrawMode ' , ' fast ' , ' box ' , ' on ' , ' XScale ’ , ' log ' , ' YScale ' , ' log ' , ... 

' Interruptible' , 'yes ' , ' ButtonDownFcn ' , [ 'mrmvtool ( ' 'choose' ' , ' . . . 

' eval (mrmvtool ( ' ' getstr ' ' , ' ' indices * ' err ''''''))'], ... 

’ Tag ' , ' axl ' ) ; 

xlabel (’ Frequency [rads/sec]'); 

hl= [get (axl , ' XLabel ' ) ; get (axl , ' YLabel ' ) ] ; 

set (hi, ' FontWeight ' , 'bold' , 'FontSize' , round (get (hi (1) , 'FontSize' ) * . 8) ) ; 


% bar above plot 

p = [plotlocs(l) plotlocs (2) +plotlocs (4 ) +extravertspace 00] ... 

+ toolbarheight* [ 0 0 fig_ar 1}; 
ptop = p ( 2 ) +p ( 4 ) ; 

btngroup (mrmv_f ig , ' GroupID ' , ' zoom ' , ' ButtonID ' , ' zoom ' , ' PressType ' , ' toggle , . . . 

’ IconFunctions ' , 'mrmvtool ( ' ' btndraw' ' , ' ' zoom' ' ) ' , ... 

’CallBacks' , 'mrmvtool ( ' 'btndo' ' , ' 'zoom' ' ) ' , ... 

'Orientation' , 'horizontal ' , ' Position' , p) ; 
p(l) =p(l) +p(3) + extravertspace*f ig_ar ; 
p ( 3 ) = plotlocs (1) +plotlocs (3) - p(l); 

uicontrol (mrmv_f ig, ' Style' , ' frame* , 'Units ' , 'normalized' , ' Position' ,p, ... 

’ BackgroundColor ' , bgcolor_f rame) ; 
f ractvertspace = . 2* toolbarheight ; 
horizspace = f ractvertspace* f ig_ar ; 

p = p + horizspace* [1 0-20] + f ractvertspace* [ 0 1 0 -2); 
buttonheight = p{4); 

uicontrol (mrmv_f ig, ' Style' , 'pushbutton' , 'Units ' , 'normalized' , ... 

'Position' , [p(l)+p{3) *0.00 p(2) p(3)*.l p ( 4 )],' String ',' Plot ' , ... 

'CallBack' , plotcb, 'Tag' , 'plot' ) ; 

xlabels = str2mat ( ‘ Frequency [ rads /sec ]',' Frequency [rads/sec]', ... 

’ Mode ' , ' Mode ' , ' Mode ' , ' Mode ' , ' Sensor Number ' ) ; 
uicontrol (mrmv_fig, 'Style' , 'popupmenu' , 'Units' , 'normalized' , ... 

’ HorizontalAlignment ' , ' lef t ' , ... 

'Position' , [p(l)+p(3)*0.1 p{2) p(3)*.325 p ( 4 ) ] , ' Tag ' , ' popup ' , ... 

'String' ,[ ’Unfiltered Data | Filtered Data j UFRF Error (indexed) |' ... 

' UFRF Error (all)|UFRF Correlation (indexed) |' ... 

'UFRF Correlation (all)|RMV Matrix'], ... 

’UserData' , [ [1 1;1 1;0 0;0 0;0 0;0 0;0 0] xlabels]); 
uicontrol (mrmv_f ig, ' Style ' , 'pushbutton' , 'Units ' , 'normalized' , ... 
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mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


'Position' , [p(l)+p(3)*0. 475 p (2 ) p(3)*.2 p{4)], ... 

‘String' , ' to workspace as' , 'CallBack' , 'eval (mrmvtool ( ‘ ' toworkspace' '))'); 
uicontrol (mrmv_f ig, ' Style' , ' edit ' , 'Units ' , 'normalized' , ... 

‘HorizontalAlignment ' , ' lef t ' , ... 

’ Position' , [p ( 1) +p (3 ) *0 . 675 p(2) p{3)*.325 p (4 )],' String , ... 
'BackgroundColor' , bgcolor_edit , 'Tag' , ' toworkspace' ) ; 

% top stuff 

p = (plotlocs(l) p top+ext raver t space plotlocs(3) 1 -ext raver t space ] ; 
p (4 ) = p (4) - p{2) ; 

uicontrol (mrmv_fig, 'Style' , ' frame' , 'Units' , 'normalized' , 'Position' ,p, . . . 

‘BackgroundColor' , bgcol or_ frame) ; 
nxy = [2 3] ; 

vs = (p (4) -nxy (2) *buttonheight ) / (nxy(2)+l); 
p = p + vs*[fig_ar 1 -fig_ar -1); 
p ( 3 : 4 ) = p ( 3 : 4 ) . / nxy ; 

dxy = p ( 3 : 4 ) ; 

p ( 3 : 4 ) = p ( 3 : 4 ) - vs*[fig_ar 1]? 
textf actors = [.16 .7]; 

uicontrol (mrmv_fig, 'Style', 'text' , 'BackgroundColor' , bgcolor_frame, . . . 

‘String' , 'Unfiltered Data: ' , 'Units' , 'normalized' , ... 

’Position' ,p. * [1 1 .32 textfactors ( 2 ) ] ... 

+[dxy.*[0 2 ] +p ( 3 : 4 ) . * [0 textfactors ( 1) ] 0 0] , ... 
'HorizontalAlignment' , 'right' ) ; 

uicontrol (mrmv_fig / 'Style', 'edit', 'BackgroundColor' ,bgcolor_edit, . . . 
‘HorizontalAlignment ',' lef t ' , ... 

’String' 'Units' , 'normalized' , 'Tag' , 'unfiltered' , ... 

’ Position' ,p. * [1 1 2/3 l}+[dxy.*[0 2]+p(3:4) .* [1/3 0] 0 0] ) ; 
uicontrol (mrmv_fig, 'Style' , 'text' , 'BackgroundColor' , bgcolor_frame, . . . 

’String' , 'Frequencies: ' , 'Units' , 'normalized' , ... 

‘ Position ', p .*[ 1 1 .32 textfactors ( 2 ) ] ... 

+[dxy.*[0 1] +p (3 : 4) . * [0 textf actors ( 1 ) ] 0 0], ... 

’ HorizontalAlignment ' , ' right ' ) ; 

uicontrol (mrmv_fig, 'Style' , 'edit' , 'BackgroundColor' , bgcolor_edit, . . . 

‘ HorizontalAlignment ',' lef t ' , ... 

'String' 'Units' , 'normalized' , 'Tag' , ' freqs' , ... 

'Position', p. Ml 1 2/3 l] + [dxy.M0 1] +p<3 :4) .* [1/3 0] 0 0J>? 
uicontrol (mrmv_fig, 'Style', 'text' , 'BackgroundColor' , bgcol or_ frame, . . . 

'String','# of Ref s Units ',' normalized' , ... 

’ Position' , p . *[ 1 1 .32 textfactors (2 ) ] ... 

+ [dxy. M0 0 1 +p ( 3 : 4 ) .*[0 textf actors ( 1 ) ] 0 0], ... 
’HorizontalAlignment' , 'right' ) ; 

uicontrol (mrmv_fig, 'Style' , 'edit' , 'BackgroundColor' , bgcolor_edit, . . . 
‘HorizontalAlignment ',' lef t ' , ... 

'String' , '1' , 'Units' , 'normalized' , 'Tag' , 'nrefs' , ... 

‘Position' ,p. Ml 1 2/3 l]+[dxy.*[0 0] +p (3 : 4 ) . * [1/3 0] 0 03); 
uicontrol (mrmv_fig, 'Style', 'text', 'BackgroundColor' , bgcolor_f rame, . . . 

‘ String' Freq. Indices Units ',' normalized' , ... 

‘Position' ,p. * [1 1 .32 textf actors (2 ) ] ... 

♦ [dxy.Ml 2 ] +p ( 3 : 4) . * [0 textf actors { 1 ) ) 0 03 , ... 
‘HorizontalAlignment' , 'right' ) ; 

uicontrol (mrmv_fig, 'Style', 'edit', 'BackgroundColor' , bgcol or_edit, . . . 
’HorizontalAlignment' lef t' , ... 

‘ String' , ' ' ' all ' ' ' , 'Units ' , 'normalized' , 'Tag' , ' indices ' , ... 

'Position', p. Ml 1 2/3 l) + [dxy.Ml 2 3 +p (3 : 4 ) . * [ 1/3 0 ] 0 03 ); 

uicontrol (mrmv_fig, 'Style' , 'text' , 'BackgroundColor' , bgcol or_f rame, . . . 

'String' , 'Poles: ' , 'Units' , 'normalized' , ... 

’ Position ', p .*[ 1 1 .32 textf actors { 2 ) ] ... 

+[dxy.*[l 1] +p (3 : 4 ) . * [0 textf actors ( 1 ) 3 0 03, ... 

'HorizontalAlignment' , 'right' ) ; 

uicontrol (mrmv_fig, 'Style', 'edit', ' BackgroundColor l>gcolor_edit , . . . 

‘HorizontalAlignment lef t' , ... 

'String' ,'[]', 'Units' , 'normalized' , 'Tag' , 'poles' , ... 

* Position' , p . * [ 1 1 2/3 l] + [dxy.Ml 1 ] +p { 3 : 4 ) . * [ 1/3 03 0 03 ); 
p ( 1 ) = p ( 1 ) + dxy { 1 ) ; 

button_labels = str2mat ( ‘Compute RMVs Options ...',' Exit ') ; 
button_cbacks = str2mat (computecb ... 

, ' mrmvtool ( ‘ ' options ' ' ) ' ... 

,' mrmvtool (’' exit '') ' ... 

) ; 

button_tags = str2mat { ‘ compute ; 
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mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


nx = size (button_labels , 1 ) ; 
button_widths = zeros (nx, 1) ; 

% define the font and size 

% these are hard coded on most platforms in 
% Version 4, but may vary from site to site, 

c = computer; 

if all (c (1 : 2 ) == ' MA ' ) , f ontsize=10 ; f on tname= ' Geneva ' ; 

elseif all (c (1 : 2>=='PC' ) , fontsize=U; fontname=''; 
else, f ontsize= [ ] ; fontname=''; 

end; 

% set them up 

oldax = get (mrmv_fig, 'CurrentAxes' ) ; 
set (mrmv_f ig , ' CurrentAxes ' , axl ) ; 
axlims = axis; 

t_junk = text (axlims (1) , axlims (3) , deblank (button_labels (1, :))) ; 
set (t_junk, 'Units ' , 'pixels' ) ; 

if -isempty { font name) , set (t_junk, ' FontName' , fontname) ; end; 
if -isempty ( f ontsize) , set ( t_junk, ' FontSize ' , f ontsize) ; end; 
ext = get (t_ junk, 'extent' ) ? 
button_widths < 1 ) = ext (3); 
for kk=2:nx, 

set (t_junk, ' String' , deblank (button_labels (kk f : ) ) ) ; 
ext = get { t_Junk, ' extent ') ; 
button_widths < kk ) = ext (3); 

end; 

delete (t_junk) ; 

set (mrmv_f ig, ' CurrentAxes ', oldax) ; 
figpos = get (mrmv_fig, ' Position' ) ; 

extrawidth = figpos (3) * (p ( 3 ) -vs* f ig_ar* (nx-1 ) ) - sum (butt on_widths) ; 
button__widths = button_widths + extrawidth / nx; 

button_widths = (p ( 3 ) -vs* f ig_ar* (nx-1 ) )* butt on_widths/ sum (but ton_widths) 
for kk=l:nx, 

p ( 3 } = button_widths (kk) ; 

uicontrol (mrmv_fig, 'Style' , 'pushbutton' , ... 

' String ' , deblank (button_labels (kk, : ) ) , ... 

' CallBack' f deblank (button_cbacks (kk, : ) ) , ... 

'Tag' , deblank (but ton_tags (kk, : ) ) , ... 

'Units' , 'normalized' , 'Position' ,p) ; 
p(l) = p(l) + p ( 3 ) + vs* f ig_ar ? 

end; 

% set up default properties 
mrmvtool ( ' set ' , ' oldunf iltered' , ' ' ) ; 
mrmvtool ( ' set * , 9 RMVMatrix 
mrmvtool ('set', ' MPVMatr ix 
mrmvtool ( ’ set ' , ' FilteredData 
mirmvtool ( 'set' , ' UFRFErrorindexed' , ' ' } ; 
mrmvtool ( * set ' , ' UFRFErrorall 

mrmvtool ( 'set' , ' UFRFCorrelationindexed' , ' ' ) ; 
mrmvtool ( ' set ' , 'UFRFCorrelationall 
% anything else? 
if (debugging) , 

% some dummy data 

set ( f indobj {mrmv_f ig, ' Style' , ' edit' , 'Tag' , ' unfiltered' ) , ... 

'String', '[1 5; 2 6; 3 7; 4 8; 4 9;3 8; 2 6;1 8}'); 
set (f indobj (mrmv_fig, ' Style' , 'edit' , 'Tag' , ' freqs' ) , 'String' ,'1:8'); 

end; 

% make it visible 
f igure (mrmv_f ig ) ; 

ax= f indobj (mrmv_f ig , ' Type ' , ' axes ' , ' Tag ' , ' zoom' ) ; 
if -isempty (ax) , set (mrmv_fig, 'CurrentAxes ', ax) ; end; 
whitebg (mrmv_f ig, [ 1 1 1 ] * . 7 5 ) ; 

set (mrmv_fig, ' Pointer' , 'arrow' , 'Visible' , ' on' ) ; 
elseif strcmp (action, ' exit ') , 

allfigs = findobj (get (0, 'Children' ),' flat' , 'Type' ,' figure' ) ; 
myfigs = mrmvtool (' get ',' subfigs ') ; 

for k=myf igs (:).', if any (k==allf igs) , delete (k); end; end; 
close (mrmv_fig) ; 
if (debugging) , mrmvtool; end; 


Appendix A: Computer Codes 


94 



mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


elseif strcmp {action, ' getstr ') , 
if isempty ( f lag) , 
h = []; 
else, 

h = get (findobj (mrmv_fig, 'Tag' , flag) , 'String' ) ; 

end; 

elseif strcmp (action, ' setstr ') , 
if isstr (val) , 
str = val; 

elseif isempty (val) , 
str = ' t J ' ; 

elseif (all (val { : ) ==round(val { : ) ) ) & all {val ( : ) >=0 ) & any {size (val) >2 >) , 
trans=0; if {size (val , 2 ) ==1) , trans=l; val=val.'; end; 
val = [val .'; -2*ones (1, size (val, 1) )] ; 
val = val 

ii = {[diff(val) 0 ] ==1 ) ; 
ii = ii & ( [1 diff (ii) ]==0) ? 
val(ii) = -3 + 0*val(ii); 
ii = ii & ([1 dif f (ii) ) ==0) ; 
val(ii) = [J; 

str = sprintf ( ' % . Of ' , va 1 ) ; 

str = strrep (strrep (str , ' -3 -2 ',';'); 

str ( length (str ) ) = []; 
str = [ ' ( ' str * ] ' ] ; 
if (trans) , str=[str end; 

else, 

str = mat2str (val ) ; 

end; 

set (findobj (mrmv_fig, 'Tag' , flag) , 'String' , str) ; 

elseif strcmp (action, ' getfig' ) , 
h = mrmv_fig; 

elseif strcmp (action, 'popup' ) , 

popup = findobj (mrmv__fig, 'Tag' , 'popup' ) ; 
if isempty (popup) , 

error {' MRMVTOOL cannot find its popup menu.'); 

end; 

v = get (popup, 'Value' ) ; 

minval = get (popup, 'Min' ) ; 
maxval = get ( popup , ' Max ' ) ; 
if (vcminval | v>meLxval), 

err or ( ' MRMVTOOL seems to have a corrupted popup menu.'); 

end; 

if isempty { flag) , 

h = get (popup, 'Value ') ; 
else, 

if isstr (flag) , 

if (size ( f lag, 2 ) ==1) , flag=flag.'; end; 
if { size ( flag, 1 ) ~=1) , 

error {[ 'MRMVTOOL requires a string row vector ' ... 

'when setting the popup menu value. ' ] ) ; 

end; 

s = lower (str2mat ( flag, get (popup, ' String' ))) ; 
s(s==0) = s ( s==0 ) + ' ' ; 

ii = find (all ( (ones (size(s, l),l)*s(l,:)==s ).')); 
if ( length ( ii) ==1 ) , 

for k=l : size (s, 1) , 
s 2 = s ( k; , : ) ; 

s2 ( s2== ' ' | s2== ' ( ' | s2== ' ) ' ) = [] ; 

s(k,:) = setstr([s2 * * *ones ( 1 , size (s , 2 ) -length(s2 ) ) ] ) ; 

end; 

ii = f indtall ( (ones (size (s, 1) , 1) *s { 1 ,:) ==s) .')) ; 

end; 

ii ( 1 ) = []; 

if all (size (ii) ) , 

flag - min (ii) -1; 
else, 

error ([ 'MRMVTOOL does not recognize w ' ... 
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mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


flag ' ' ' as a valid popup menu value. ' ] ) ; 

end; 

elseif (flag<minval | f lag>maxval ) , 

error {[' MRMVTOOL requires the popup value to be in [' ... 

num2str (minval) ' , ' num2str (maxval } '].']); 

end; 

set (popup, ' Value ' , flag) ; 

end; 

elseif strcmp (action, * toworkspace ' ) , 

str = mrmvtool ( 'getstr toworkspace' ) ; 

if -isempty ( str ) , str=[str *=']; end; 

disp ( [str 'mrmvtool { * ' getplotdata ' ' ; 

h = [str 'mrmvtool ( w getplotdata ** * ... 


eval (mrmvtool ( * 'getstr ' ' 

' 'unf iltered' ' ) , ' ' 

' ' ' ' err 

eval (mrmvtool ( 1 ' getstr ' ' 

' ' f reqs ' ' ) , ' ' 

' ' ' ' err 

eval (mrmvtool ( % ' getstr ' ' , 

, ' ' indices ' ' ) , ' ' 

' ' ' ' err 


M);M; 


elseif strcmp (action, ' checkref ilter ' ) , 

% get the data (flag=unf iltered, val=freqs,arg4=indices,arg5=errordialog) 

h=0 ; 

oldflag = mrmvtool ( ' get ' , ' oldunf iltered ' ) ; 
if any (size (oldflag) ~=size ( flag) ) , 
neednew = 1 ; 
else, 

neednew = any ( flag (:) ~=oldf lag (:)) ; 

end; 

if (neednew) , % need to recompute 
% get the filters 

rmv = mrmvtool ( 'get 'RMVMatrix' ) ; 
mpv = mrmvtool ( 'get ' , 'MPVMatrix' ) ; 

[no,nl] = size(rmv); 

% check the data first 

mrmvtool ( 'checkparse' , 'unfiltered' , flag) ; 
if any ([no nl]==0), 

errmsg = 'MRMVTOOL cannot filter the data until the RMVs are computed 
if (arg5) , 

mrmvtool ( ' error ' , ' error ' , errmsg) ; 
else, 

error (errmsg) ; 

end; 
h=l ; 

elseif (rem(size (flag, 2) , no) ~=0) , 

errmsg = ['MRMVTOOL requires that the # of columns of the Unfiltered 
'Data be a ' sprintf ( ' \n ' ) ‘multiple of the # of outputs ' 
'when the RMVs were computed. ' ] ; 

if (arg5) , 

mrmvtool ( ‘ error ' , ' error ' , errmsg) ; 
else , 

error (errmsg) ; 

end; 
h=l ; 
else, 

% recompute the uncoupled frfs 
ni = size ( flag, 2 ) /no; 

[um,un] = size(flag); 

uf rf =stack2sbys ( sbys2stack ( flag , un/no) *rmv,un/no) ; 
mpvWeighted = []; 

if (ni>l & size (mpv, 1) ==ni ) , 
kl= ( 1 : nl : (nl*ni) ) 
k2=l:nl; 

k=kl ( : , ones (l,nl) }+k2 (ones (ni,l) , ; ) -1; 
k=k ( : ) ' ; 

k2 = k2 (ones (urn, 1) , ; ) ; k2=k2 ( : ) ' ; 
utmp=zeros (urn, nl ) ; 

utmp ( : ) =sum ( sbys2 stack (ufrf ( : , k) , size (k, 2 ) /ni) ' . *mpv( : , k2 ) ) ' ; 
mpvWeighted = size (uf rf , 2 ) + ( 1 : nl ) ; 
ufrf=[ufrf utmp]; clear ( 'utmp' ) ; 

end; 
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% save them again 

mrmvtool { 1 set 1 , ' oldunf iltered' , flag) ; 
mrmvtool ( * set ' , ' FilteredData ' , uf r f ) ? 

mrmvtool { 'set' , 'MPVWeightedFilteredData ' , mpvWeighted) ; 

end; 

end; 

elseif strcmp (action, ' getplotdata ' ) , 

% get the data { flag=unf iltered, val=freqs, arg4=indices ) 
dialogonerror = (nargout>=6) | (nargin>=5); 
popup = f indob j (mrmv_fig, 'Tag' , 'popup' } ; 
if i sempty ( popup ) , 

error (* MRMVTOOL cannot find its popup menu.'); 

end; 

v = get (popup, 'Value' ) ; 

if ( (v<get (popup, 'Min' ) ) | (v>get (popup, 'Max' ) ) ) , 

error < ‘ MRMVTOOL seems to have a corrupted popup menu.'); 

end; 

logs = get (popup, 'UserData' ) ; 

logs = logs (v, : ) ; 

h6=0; 

s = get (popup, ' String' ) ; 
s = deblank (s (v, :)) ; 
ss = s; 

s< <s==' ') I (S==- (') | (S==- ) ') ) = (1 ; 

if (v==l) , % unfiltered 

mrmvtool ( 'checkparse' , 'unfiltered' , flag) ; 
else, 

if (v==2), h6=mrmvtool ( ' checkref ilter ' , f lag, val , arg4 , dialogonerror) ; end; %f iltered 
flag = mrmvtool ( 'get ', s) ; 

end; 

if (~h6 & isstr ( f lag) ) , 

errmsg = [ ‘MRMVTOOL has not yet computed ’ ' ' ss 
if (dialogonerror) , 

mrmvtool ( ' error ' , ' error ' , errmsg) ; 
else, 

error (errmsg) ; 

end; 
h6=l ; 

end; 

% compute outputs 
h=f lag; 
if (h6) , 

h2 = []; 

elseif (v==l|v==2), % frequency-based data 
mrmvtool ( ' checkparse ' , ' f reqs ' , val ) ; 
if (min ( size (val) ) >1) , 

errmsg = 'MRMVTOOL requires the frequencies be a vector, not a matrix. ' 
if (dialogonerror) , 

mrmvtool ( ' error ' , ' error ' , errmsg) ; 
else, 

error (errmsg) ; 

end; 
h = [ ] ; 
h6 = 1; 

end; 

h2 = val ( : ) ; 
else, 

h2 = ( 1 : size ( flag, 1 )).' ; 

% {err, cor)_{index, total) are (nl) -by- (ni+ (ni>l) ) 

% rmv is (no)-by-(nl) 

% mpv is (ni)-by-(nl) 

end; 

h3=logs ; 

h4=v; 

h5=popup? 

elseif strcmp (action, 'plot ') , 
if (nargin==l) , 

h = get ( findobj (mrmv_fig, 'Tag ', 'plot ' ) , ' CallBack' ) ; 
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return- 

end; 

% check if currently log scale 
ax = f indob j (mrmv_fig, ' Tag' , 'axl ') ; 

if isempty (ax) , error (' MRMVTOOL cannot find its axes.'); end; 

was log = [strcmp (get (ax, 'XScale' ) , 'log' ) strcmp (get (ax, 'YScale' ) , ' log' > ] ; 

% check old log/ linear scale 
oldv = mrmvtool ( 'get' , 'oldv' ) ; 
if -isempty (oldv) , 

alllogs = get (popup, 'UserData' ) ; 
if (oldv>=l&oldv<=size (alllogs , 1 ) ) , 
alllogs (oldv, 1 : 2 ) = waslog; 

end; 

set (popup, ' UserData ' , all logs ) ; 

end; 

% get the data ( f lag=unf iltered, val=f reqs , arg4=indices) 

[pd,x, logs , v, popup , err] = mrmvtool ( * getplotdata ' , f lag, val , arg4 ) ; 
if (err) , return; end; 

% check it 
if isempty (pd), 

mrmvtool ( 1 error error ' , ... 

' MRMVTOOL cannot plot what is empty or not yet computed.'); 

return; 

elseif isempty(x), 

x = (1 : size (pd, 1) ) . ' ; 
elseif (size (x, 1) ~=size (pd, 1) ) , 
mrmvtool ( 'error' , 'error ' , ... 

['MRMVTOOL requires that the Unfiltered Data and the' ... 
sprintf ( ' \n' ) 'Frequencies have the same # of rows.']); 

return; 

end; 

% handle absolute values 
warn = % ' ; 
if (v==l | v==2 ) , 

pd=abs (pd) ; %we are only doing magnitude plots here 
elseif (v==7 & -isreal (pd) ) , 
pd=abs (pd) ; 

if mrmvtool ( % get ' , ' showwarnings ' ) , 

warn = 'MRMVTOOL warning: the RMVs are complex; plotting abs(RMVs).' 

end; 

end; 

% do we have a MPV-weighted filtered frf? 

ii = U; 

if ( v ==2 ) , 

ii = mrmvtool { 'get' , 'MPVWeightedFilteredData ' ) ; 

end; 

% plot it 
oldfig = gcf; 
figure (mrmv_f ig) ; 
oldax = gca; 
axes (ax) ; 

delete (get (ax, ' Children' ) ) ; 

1 = line (x,pd, 'Butt onDownFcn' , get (ax, 'Butt onDownFcn' )) ; 

if all (size (ii) ) , set (1 (ii) , 'Color mrmvtool { 'get ', 'MPVWeightedColor ')) ; end; 
set (get (ax, 'XLabel' ) , 'String' , setstr (logs (3 : length(logs) ) ) ) ; 
if (v>2 ) , set (ax, 'XTick' ,x) ; else, set (ax, ' XTickMode ' , ' auto ' ) ; end; 
mrmvtool { ' set ' , ' lastplotted' , v) ; 

% handle log scales 

waslog = [strcmp (get (ax, ' XScale ' ) , ' log ' ) strcmp (get (ax, 'YScale' ),' log' )] ; 
if (waslog ( 1 ) -=logs (1) ) , 

if ( logs ( 1 ) ) , s = ' 1 og ' ; else, s=' linear'; end; 
set (ax, ' XScale ' , s) ; 

end; 

if (waslog (2 ) -=logs (2) ) , 

if (logs (2 ) ) , s= ' log ' ; else, s='linear'; end; 
set (ax, 'YScale ' , s) ; 

end; 

% handle limits 
if (v>2 ) , 

xlims = [l-min(l, (max (x) -1 ) /10 ) max (x) +min { 1 , (max (x) -1 ) / 10 ) ] ; 
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else, 

xlims = [min(x) max(x) ]; 

end; 

set (ax, 'XLim' , xlims , ' YLimMode ' , ' auto ' ) ; 
set (get (ax, ' ZLabel ' ) , 'UserData ' , [ ] ) ? 

% clean up 
axes (oldax) ; 
f igure (oldf ig) ; 

ax=f indob j (mrmv_f ig, 'Type' , 'axes' , 'Tag' , ' zoom' ) ; 

if -isempty (ax) , set (mrmv_f ig, ' CurrentAxes ' , ax) ; end; 

if all (size (warn) ) , mrmvtool ( 'error 'warning' , warn) ; end; 

elseif strcmp (action, ' center loc' ) , 

if (all (size ( flag) ) & -isstr { f lag) ) , 
flag = flag (1) ; 

if (flag==0), flag= 'mouse' ; 

elseif ( f lag==l ) , flag= 'mouse' ; 
elseif ( f lag==2 ) , flag= 'mrmvtool ' ; 
else, f lag= ' screen' ; 

end; 

end; 

flag = lower (flag) ; 

if strcmp (flag, 'screen' ) , pos=get(0, 'ScreenSize' ) ;pos=pos (1 : 2) +pos (3 : 4) /2; 

elseif strcmp (flag, 'mrmvtool ' ) , pos=get (mrmv_f ig, 'Position' ) ;pos=pos (1 : 2 ) +pos (3:4) /2 ; 
else, pos=get(0, ' PointerLocation' ) ; 

end; 

h = pos? 

elseif strcmp (action, ' options ' ) & isempty ( f lag) , 

% set up and display the options dialog 
oldfig = gcf; 

oldpointer = get (oldf ig, ' Pointer ') ; 

if -strcmp (oldpointer , 'watch' ) , set (oldf ig, ' Pointer 'watch' ) ; end; 
dig = findobj ( 'Type' ,' figure' , 'Name' ,mrmv_opt ions) ; 
if -isempty (dig) , 
figure (dig) ; 
else, 

labels - str2mat( ... 

str2mat ( ' Data Output Type ' , ' text ' , ' 0 ' , ' ' ) ... 

, str2mat { ' displacement ' , ' radiobutton ' , ' 1 ' , ' disp ' ) ... 

, str2mat ( 'velocity' , 'radiobutton' , ' 1 ' , 'vel ' ) ... 

, str2mat ( ’acceleration' , 'radiobutton' , '1' , 'accel' ) ... 

, str2mat 0 ','' ) ... 

, str2mat ( ’Restrict RMVs to Real Numbers checkbox' ,' -1 ',' real rmv' ) ... 

, str2mat ( ‘Display Warnings checkbox -1 'warnbox' ) ... 

) ; 

[m,n] = size ( labels) ; 

m = m/ 4 ; 

tags = labels ( 4 : 4 : 4*m, : ) ; 

indents = setstr { [ones (m, 1) * ' * labels ( 3 : 4 : 4*m, : ) 3 ) . ' ; 

indents = eval ( [ ’ [ ' indents ( : ) . ' '].''']); 

styles = labels (2 : 4 : 4*m, : ) ; 
labels = labels (1 : 4 : 4*m, :) ; 

nchars = n - sum { cumprod ( fliplr ( labels ).'== ' ’ | fliplr (labels) . '==0) ).' ; 

% some size parameters 
mCharacterWidth = 7; 

Voff = 5; 
layout 

mPushbuttonWidth = mStdButtonWidth; 
mPushbuttonHeight = mStdButtonHeight ; 
mlndentWidth = mFrameToText ; 

mCheckBoxWidth = mFrameToText ; 

mLineHeight = max (mLineHeight , mPushbuttonHeight ) ; 

mOKString = mOkButtonString; 

mCancelString = mCancelButtonString; 

% compute size of dialog box 

FigWH = [ (max (nchars *mCharacterWidth ... 

+(indents>0) . * indents *mlndentwidth . . . 

- ( indent s<0) . * indents * mCheckBoxWidth) ) ... 

(m* ( mLineHeight +Vof f ) -Vof f +mPushbuttonHeight+ . . . 
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4 ‘mFrameToText + 3 *mEdgeToFrame) ] ; 

FigWH(l) = max (FigWH ( 1) , 2 *mPushbuttonWidth+ 2 *mEdgeToFrame+ 3 ‘mFrameToText ) ; 

% compute location 

pos = mrmvtool { ' centerloc ' ) ; 

pos = [pos-FigWH/2 FigWH]; 

% create the figure 

DefUIBgColor = get(0, ' DefaultUIControlBackgroundColor ' ) ; 

dig = figure ( 'NumberTitle ' , ' of f ' , 'Name' # mrmv_options, 'Units ' , 'pixels ' , ... 

'Position' ,pos, 'NextPlot' , 'new' , 'MenuBar' , 'none' , ... 

'Color' , DefUIBgColor, 'Visible' , 'off' ) ; 
mrmvtool { 1 set ' , ' subfigs ' , [mrmvtool { 'get ' , ' subfigs ' ) ;dlg) ) ; 

% make the 2 frame uicontrols 

UIPosl = mEdgeTo Frame* [1 1 -2 0] + [0 0 FigWH(l) mLineHeight+2*mFrameToText ] ; 
set {uicontrol (dig, 'Style' , 'frame' , 'Position' , UIPosl) , 'Units' , 'normalized' ) ; 

UIPos2 = [UIPosl { 1 : 3 ) + [ 0 UIPosl ( 4 ) +mEdgeToFrame 0] ... 

m* (mLineHeight+Vof f ) -Vof f +2 ‘mFrameToText ] ; 
set (uicontrol (dig , ' Style ' , ' frame ' , ' Position ' , UIPos 2 ) , ' Units , normalized ) » 

% make the OK and Cancel buttons 

Hspace = (FigWH (1) - 2* mPushbuttonWidth) / 3; 

set (uicontrol (dig, 'Style' , 'pushbutton' , 'String' ,mOKString, . . . 

'Callback' , 'mrmvtool ( ' 'options' ' f ' 'OK' ' ) ' , ... 

'Position' , [UIPosl (1:2) + [Hspace mFrameToText ] ... 

mPushbuttonWidth mPushbuttonHeight] ) , 'Units' , 'normalized' ) ; 
set (uicontrol (dig, 'Style' , 'pushbutton' , 'String' ,mCancelString, . . . 

'Callback' , 'mrmvtool ( ' 'options' ' , ' 'Cancel' ' ) ' , ... 

» position' # [UIPosl (1: 2) + [2*Hspace+mPushbuttonWidth mFrameToText] . . . 

mPushbuttonWidth mPushbuttonHeight] ) , 'Units' , 'normalized' ) ; 


% set up the rest 

UIPos2 = [UIPos2 ( 1 : 2 )+ [mFrameToText m* (mLineHeight+Vof f) +Vof f /2+mFrameToText ] ... 

UIPos2 (3) -2 ‘mFrameToText mLineHeight] ; 
for kk=l:m, 

if -isempty (deblank ( labels (kk, : ) ) ) , 

indent = max ( 0 , indents ( kk) ) ‘mlndentWidth; 

UIPosl = UIPos2 + [indent -kk* (mLineHeight+Vof f ) -indent 0] ; 
tag = deblank (tags (kk, : ) ) ; 
if “isempty ( tag) , 

cback = [ 'mrmvtool ('' options ' tag W ')'J; 
else f 

cback = * ' ; 

end; 

set (uicontrol (dig, 'Style' , deblank ( styles (kk, : ) ) , ... 

’ String' , deblank ( labels (kk, : ) ) , ... 

'Position' , UIPosl, 'Tag' , tag, 'Callback' , cback, . . . 

* Hor izontalAlignment ' , f left ' ) , ' Units ' , ' normalized ' ) ; 

end; 

end; 

end; 

% set values 

mrmvtool ( 'options ' , ' realrmv' , mrmvtool { 'get ' , ' realonly ' ) ) ; 

mrmvtool ( ' options ' , ' warnbox ' , mrmvtool ( ' get ' , ' showwarnings ' ) ) ; 

outtype = mrmvtool ( 'get out type ') ; 

mrmvtool ( ' options ' , ' disp ' , outtype==0 ) ; 

mrmvtool ( ' options ' , ' vel ' , outtype==l) ; 

mrmvtool ( ' options ' , ' accel ' , outtype==2 ) ; 

% make it visible 

if -strcmp(oldpointer, 'watch' ) , set (oldfig, ' Pointer ', oldpointer) ; end; 
set(dlg, 'Visible' , 'on' ) ; 


elseif strcmp (action, ' options ') , 

% handle options dialog items 

dig = findobj ( 'Type' figure' , 'Name' ,mrmv_opt ions) ; 
obj = findobj (dig, ' Tag flag) ; 
if isempty (dig) , 

mrmvtool ( ' options ' ) ; 
elseif strcmp { flag, ' OK' ) , 

mrmvtool ( 'set' , 'realonly' , mrmvtool { 'options' , 'realrmv' , 'get')~=0) ; 
mrmvtool { ' set ' , ' showwarnings ' , mrmvtool ( ' options ' , 'warnbox' , 'get' ) -=0) ; 
if (mrmvtool (' options ',' disp' , 1 get ' ) -=0) , outtype=0; 

elseif (mrmvtool (’ options ', 'vel ' , ’ get ' ) ~=0) , outtype=l; 
elseif (mrmvtool ( 'options' , 'accel' , 'get' )~=0) , outtype=2; 


Appendix A: Computer Codes 


100 



mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


else, outtype= [ ] ; 

end; 

mrmvtool ( ' set ' , ' out type ' , out type) ; 
set (dig, 'Visible ' , ' of f ' ) ; 
figure (mrmv_f ig) ; 
elseif strcmp ( flag, 'Cancel ') , 
set (dig, 'Visible' ,'off'); 
f igure (mrmv_f ig) ; 

elseif strcmp (flag, ' realrmv' ) | strcmp ( flag, 'warnbox' } , 

if isempty (obj ) , 

error (' MRMVTOOL has a corrupted options dialog.'); 
elseif strcmp (val, 'get' ) , 
h = get (obj , 'Value' ) ; 
else, 

if - isempty (val ) , set (obj , 'Value ', val ) ; end; 

end; 

elseif strcmp ( flag, ' disp ' ) | strcmp ( flag, 'vel ' ) | strcmp(flag, 'accel' ) , 

if isempty (obj ) , 

err or (' MRMVTOOL has a corrupted options dialog.'); 
elseif strcmp (val, 'get' ) , 
h = get (obj , 'Value' ) ; 
elseif isempty (val) , 

val = get (obj , 'Value' ) -=0; 
if (-val) , 

set (obj , 'Value' , -val) ; 
else, 

s = str2mat ( flag, 'disp' , 'vel ', 'accel ') ; 

ii = f ind(all ( (ones (size (s , 1) , 1 ) *s (1, :) ==s) .')) ; 

s (ii, : ) = (1 ? 

mrmvtool ( 'options' , deblank (s (1, : ) ) , -val) ; 
mrmvtool ( 'options ' , deblank (s (2, : ) ) , -val) ; 

end; 

else, 

set (obj , 'Value ' , val) ; 

end; 

else, 

mrmvtool ( ' error ' , ' badargs ' , ( 'MRMVTOOL does not recognize ' ' ' ... 

setstr (flag (:).') % '' as an options flag.']); 

end; 

elseif strcmp (action, ' compute ') , 
if (nargin==l) , 

h = get ( f indob j (mrmv_fig, 'Tag' , 'compute' ), 'Cal iBack' ) ; 
return; 

elseif (nargin<6) , 

mrmvtool ( ‘ error ' , ' badargs ' , ... 

'MRMVTOOL requires 6 input arguments to compute the RMVs . ' ) ; 

return; 

end; 

% check data 

mrmvtool { 'checkparse' , 'unfiltered' , flag) ; 
mrmvtool ( ' checkparse ' , ' f reqs ' , val ) ; 

mrmvtool ( ' checkparse ' , ' indices ' , arg4 ) ; 

mrmvtool ( ' checkparse ' , ' nre f s ' , arg5 ) ; 

mrmvtool ( ' checkparse ' , ' poles ' , arg6 ) ; 

if isstr (arg4 ) , if strcmp (arg4 ,' none ') , arg4= [ ] ; else, arg4=l : size ( flag, 1) ; end; end; 

% check consistency 

if (size (val , 1) -=size ( flag, 1 )) , 

mrmvtool ( * error ' , ' error ' , ... 

'MRMVTOOL requires the Data and Frequency lengths be the same.'); 

return; 

elseif any(arg4<l | arg4>length (val ) ) , 
mrmvtool (' error error ' , ... 

'MRMVTOOL requires that the frequency indices be valid.'); 

return; 

elseif (arg5~= round { arg5 ) | rem(size ( f lag, 2 ) , arg5) -=0) , 

mrmvtool (' error ', 'error ',[ 'MRMVTOOL requires that the # of columns ' ... 

‘of the Unfiltered Data be a multiple of #ofRefs.']); 

elseif isempty (arg6) , 

mrmvtool ( 'error ',' error ' , ... 
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' MRMVTOOL needs one or more poles from which to compute RMVs . ' ) ; 

return; 

end; 

% do the computing 

set (mrmv_f ig , ' Pointer ' , ' watch' ) ; 

val = val ( : ) ; 

arg4 = arg4 { : ) ; 

outtype = mrmvtool ( * get ' , ' out type ' ) ; 
realonly = mrmvtool (‘ get realonly' ) ; 

[rmv,mpv, uf rf s , robind, condnum, err_calc , err_total , cor_calc, cor_total , warn] . . . 

= mrmv (arg6 , val , flag, arg5 , arg4 , outtype, realonly, 1) ; 
set (mrmv_f ig, ' Pointer' , 'arrow' ) ; 
if isstr (rmv) , 

mrmvtool ( ' error ' , ' error ' , rmv) ; 
else, 

mrmvtool ( ' set * , ' oldunf iltered' , flag) ; 

mrmvtool ( % set ' , 'RMVMatrix' , rmv) ; 

mrmvtool ( 'set' , 'MPVMatrix' ,mpv) ; 

mrmvtool ( ' set ' , ' FilteredData ' , ufrf s) ; 

mrmvtool ( ' set ' , 'UFRFError indexed' , err_calc) ; 

mrmvtool ( ' set ' , 'UFRFErrorall ' , err_total) ; 

mrmvtool ( 'set' , 'UFRFCorrelationindexed' , cor_calc) ; 

mrmvtool ( ' set ' , 'UFRFCorrelationall ' , cor_total) ; 

mrmvtool { 'set' , 'MPVWeightedFilteredData' , prod ( size (mpv) ) +1 : size (uf rf s , 2 ) ) ; 
if ( -isempty (warn) & mrmvtool (' get showwarnings ')) , 
mrmvtool ( ' error ' , ' warning ' , warn) ; 

end; 

end; 

elseif strcmp (action, 'checkparse' ) , 

if strcmp ( flag, ' unfiltered ') , str = 'Unfiltered Data'; 

elseif strcmp (flag, 'freqs' ), str = 'frequencies'; 

elseif strcmp (f lag, ' indices ' ), str = 'frequency indices'; 

elseif strcmp (flag, 'nrefs' ), str = ‘ numbers -of -ref erences ' ; 

elseif strcmp ( flag, 'poles ' ), str = 'poles'; 

else, mrmvtool ( 'error ', 'badargs ',( ‘MRMVTOOL cannot parse a string of type ''' ... 

flag ( : ) . ' '".']); 

return; 

end; 

if isstr (val) , 

if strcmp (val ,' err ') , 

mrmvtool ( 'error ', 'error ',( 'MRMVTOOL is unable to parse the ' ... 

str ' string.' sprintf ( ' \n' ) lasterr] ) ; 
elseif - (strcmp (flag, ' indices ' ) & (strcmp (val, 'all' ) | strcmp (val, 'none' ))) , 
mrmvtool ( 'error ', 'error' ,[ ‘MRMVTOOL cannot use ' ' ' val ( : ) . ' ... 

' ' ' as ’ str 

end; 

end; 

elseif strcmp (action, ' choose ') , 

% check if we have frequency-based data 
v = mrmvtool ( * get lastplotted' ) ; 
if (v>2 ) , 

mrmvtool ( 'error' , 'warning' , [ ‘MRMVTOOL cannot choose spectral ' ... 

'lines unless Unfiltered or Filtered Data is plotted.']); 

return; 

end; 

if -isempty ( f lag) , 
if isstr (flag) , 

mrmvtool ( ‘ checkparse ' , ' indices ' , flag) ; 
if strcmp (flag, 'none' ) , flag=[]; end; 
else, 

flag = flag ( : ) ; 

end; 

end; 

% get the axes 
oldfig = gcf; 
f igure (mrmv_f ig) ; 
oldax = gca; 

ax = f indob j (mrmv_f ig, 'Tag' , 'axl' ) ; 
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sixes (ax) ; 

% check if we're in bounds 
if isstr(val) | any ( size (val ) ~= [1 2]), 
pt = get (ax, ' CurrentPoint ' ) ; 
pt = pt (1,1:2) ; 
else, 

pt = val ; 

end; 

curlim = [get {ax, 'XLim' ) ; get (ax, ' YLim' ) ] . ' ; 
if (all (pt>=curlim(l, : ) ) & all (pt<=curlim{2 , : ) ) ) , 
if (-btnstate (mrmv_f ig, ' zoom' , ' zoom' ) ) , 

popup = f indob j (mrniv_fig, 'Tag' , 'popup' ) ; 
if i semp ty ( popup ) , 
axes (oldax) ; 
figure (oldfig) ; 

error { 'MRMVTOOL cannot find its popup menu.'); 

end; 

v = get (popup, 'Value ') ; 
if any (v== [ 1 2 4 6] ) , 

1 = f indob j (ax, 'Type' , ' line ' , ' Lines tyle' , 'o' , 'Tag' , ' indiceslines ' ) ; 
if ( length ( 1) ~=2 ) , delete(l); 1= [ ] ; end; 
if isempty(l), 

% turn choosing on 

% get the data points 

kids = findobj (ax, 'Type' ,' line' ) ; 

if -isempty (kids ) , 

x = get (kids (1) , 'XData' ) ; x=x(:); 
yl = zeros (length (x) , length (kids) ) ; 
for k=l : length (kids) , 

yy = get (kids ( k) , 'YData ') ; 
if (length(yy) ~= length(x)), 
axes (oldax) ; 
figure (oldfig) ; 

mrmvtool ( 'error ', 'error ',[ 'MRMVTOOL found data' ... 

' of varying lengths in plot window. ' ] ) ; 

return- 

end; 

yl ( : , k) = yy . ' ; 

end; 

% check indices 
n = length (x) ; 
if strcmp ( flag, ' all ') , 
flag = (1 :n) . ' ; 

elseif any( (flag>n) | (flag<l) | ( f lag~=round( f lag) ) ), 

flag = round(flag); 
flag( (flag>n) | (flag<l) ) = [j; 
flagO = flag; 
if ( length ( flag) ==n) , 

if all ( flag ( : ) .'==[l:n]), 
flagO = 'all'; 

end; 

end; 

if isstr ( flagO ) , f lagO= [ ' ' ' ' flagO(:).' ''''); end; 
mrmvtool ( 1 setstr ' , ' indices ' , flagO) ; 

end; 

% divy them up 
ii = zeros (n, 1) ; 

ii(flag) = ones ( length ( flag) , 1 ) ; 
xl = x( ii , ones ( 1 , size (yl , 2 ) ) ) ; 
xO = x(~ii, ones (1, size (yl, 2) ) ) ; 
yO = yl(~ii, :) ; 
yl = yl ( ii, ;); 

xO=xO (:).'; xl=xl (:).'; yO=yO (:).'; yl=yl (:).'? 
if isempty(xl) , 

1(1) = line (NaN, NaN, 'Color r 'LineStyle' ,' o ' , ... 

' Tag ' , ' indices 1 ines ' ) ; 
set (1(1),' XData ',(),' YData ',[]); 
else, 

1(1) = line (xl,yl, 'Color ', 'r' , 'LineStyle' , 'o' , ... 

'Tag' , ' indiceslines ' ) ; 
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end; 

set (1 ( 1) , 'UserData' ,x) ; 
if isempty(xO) , 

1(2) = line (NaN,NaN, 'Visible ' , ' of f ' , ' LineS tyle ' , 'o', ... 

'Tag ' , ' indiceslines ' ) ; 
set (1(2) , 'XData', [] , 'YData' , [] ) ; 
else, 

1(2) = line (xO , yO , 'Visible ' , ' of f ' , ' LineS tyle ' , 'o', ... 

'Tag' , ' indiceslines ' ) ; 

end; 

set (1 , ' ButtonDownFcn' , get (six, ' ButtonDownFcn' ) , ... 

'EraseMode' , indiceslineserase) ; 

end; 

else, 

% get the data 

1 = [ f indob j (1, ' flat" , "Visible' / on'); f indob j (1, ' flat' , 'Visible' , 'of f ' ) ] ; 

x = get (1 (1) , 'UserData' ) ; 

xl = get (1(1) , 'XData' ) ; 

xO = get (1(2) , 'XData' ) ; 

yl = get (1(1) , 'YData' ) ; 

yO = get (1 (2) , 'YData' ) ; 

n = length(x); 

% check the indices 

if ( isstr ( flag) & strcmp ( flag, ' all ')) , 
flag = ( 1 : n) 

elseif any{ (flag>n) | (flag<l) | ( f lag-=round( f lag) ) ), 

flag = round ( f lag { : ) ) ; 
flag( (flag>n) | (flag<l) ) = []; 

end; 

flag = sort (flag); 

if -isempty ( f lag) , f lag ( [diff ( flag) ; 1 ] ==0) =(] ; end; 

if ( length (xl ) *n/ { length (xl ) + length (xO) ) ~= length { flag) ) , 

% indices has been changed . . . update picture to reflect it 
xO=[xO xl] ; xO=xO{:); 
yO=[yO yl]; yO=yO{:); 

[xO,ii] = sort(xO); yO=yO(ii); 

xO=reshape (xO , length (xO) /n,n) . ' ; yO=reshape (yO , length (yO) /n,n) . ' ; 
[junk,ii] = sort(x'); 
xO(ii,:)=xO; yO(ii,:)=yO; 

xl=xO (flag, : ) ; xO ( f lag, : ) = (] ? yl=yO ( f lag, : ) ; yO ( f lag, : ) = [ ] ; 
xO=xO (:).'; xl=xl {;).'; yO=yO (:).'; yl=yl <:).'; 

end; 

% compute distances 

if strcmp (get (six, ' XScale ' ) , ' log ' ) , 

xld = loglO (xl/pt (1) ) /loglO (curlim(2 , 1) /curlimd, 1) ) ; 
xOd = loglO (xO/pt (1) ) / loglO (curlim(2, 1) /curlimd, 1) ) ; 
else, 

xld = (xl-pt(l) )/ (curlim(2, 1) -curlimd, 1) ) ; 
xOd = (xO-pt (1) )/ (curlim(2, 1) -curlimd, 1) ) ; 

end; 

if strcmp (get (ax, ' YScale' ) , * log' ) , 

yld = loglO (yl/pt (2 )) /loglO (curlim{2, 2) /curlimd, 2) ) ; 
yOd = loglO (yO/pt { 2 ) ) / loglO (curlim (2,2) /curlim (1,2)); 
else, 

yld = (yl-pt(2) ) / (curlim (2, 2) -curlim (1,2) ) ; 
yOd = (yO-pt (2) ) / (curlimd , 2) -curlimd, 2) ) ; 

end; 

ii=f ind ( isnan (xld) ) ; if ( -isempty ( ii ) ) , xld ( ii ) =inf*ones (length ( ii ) ,1) ;end; 

ii=find(isnan(xOd) ) ; if ( -isempty ( ii ) ) ,xOd ( ii) =inf*ones (length ( ii) , 1) ; end; 

ii=find( isnan (yld) ) ; if ( -isempty ( ii ) ) , yld ( ii ) =inf*ones (length { ii ) , 1) ;end; 

ii=find( isnan (yOd) ) ; if (-isempty ( ii ) ) ,yOd(ii) =inf*ones (length (ii) , 1) ;end; 

oldu = get (ax, 'Units ') ; 

oldp = get (ax, ' Position' ) ; 

set (ax, 'Units ' , 'pixels ' ) ; 

p = get (ax, ' Position' ) ; 

set (ax, ' Units ' , oldu, ' Position' , oldp) ; 

xld = (xld*p (3 ) ) . A 2 + (yld*p ( 4 ) ) . A 2 ; 

xOd = (x0d*p(3) ) /2 + (y0d*p(4) ) . *2; 

% determine minumum 
[junk,iil] = min (xld) ; 
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mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


[junk,iiO] = min(xOd) ; 
ii = 1; 

if (-isempty (iil) | -isempty (iiO) ) , 
if isempty (iil) , 
ii - 0; 

elseif -isempty (iiO) , 

ii = (xld(iil) <= xOd(iiO)); 


end; 

% adjust data 
if < ii > / 

ii = find(xl==xl(iil)); 

flag (f ind(f lag==f ind(x==xl (ii (1) ) ) ) ) = []; 
xO = [xO xl (ii) ] ? 
yO = [yO yl (ii) ] ; 
xl (ii) = (]; 

yl (ii) = (1; 
else, 

ii - f ind(xO==xO (iiO) ) ; 

flag = sort ( [flag; find(x==x0 (ii (1) )) 1 ) ; 

flag( [diff (flag) ;1]==0) = []; 

xl = [xl xO (ii) ) ; 

yl = [yl yO (ii) ] ; 

xO (ii) = []; 

yO (ii) = []; 

end; 

% replace it 

set (1(1), ' XData ' , xl , ' YData ' , yl ) ; 
set (1(2),' XData ' , xO , ' YData ' , yO ) ; 
if ( length ( flag) ==n) , 

if all (flag ( : ) .'«[l:n]) # 
flag = * all ' ; 

end; 

end; 

if isstr(flag), flag=[ w '' flag(:). # ' ' ' ' ] ; end; 
mrmvtool ( * setstr ' , ' indices ' , flag) ; 

end; 

end; 

end; 


end; 

elseif (pt (2 ) <=curlim (2 , 2) ) , 

axlimdlg { 'Axes Limits Dialog', [1 1]); 
oldfig = gcf; 

end; 

set (mrmv_f ig, ' CurrentAxes ' , oldax) ; 
figure (oldfig) ; 

ax=f indobj (mrmv_f ig, 'Type' , 'axes ' , 'Tag' , ' zoom' ) ; 
if -isempty (ax) , set (mrmv_fig, 'CurrentAxes ax) ; end; 


elseif strcmp (action, 'btndraw' ) , 
if strcmp ( flag, ' zoom' ) , 

if (0), % faster text version, but not as nice 

h=text ( . 5, .5, ' zoom' , ' HorizontalAlignment ' , 'center' , 'FontSize' , buttontextsize) ; 
else, % cool icon version 


[0.0917 
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0.1583 

0.1917 

0.2250 
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0.3583 

0.4250 

0.4583, . 

0.4917 
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0.9250 
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0.8250, . 
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0.0917 

0.0583 

0.0583, . 
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0.1250 
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0.1583 
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0.5250 
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; 
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mrmvtool.m — Graphical User Interface for rarmv function (cont.) 


0.8750 0.8750 0.8750 0.8750 0.8417 0.8083 0.7750 0.7083 0.6417, 

0.5750 0.5417 0.5083 0.4750 0.4750 0.4750 0.4750 0.5083 0.5417, 

0.5417 0.5750]; 

x2 = [0.2917 0.3583 0.3917 0.3917 0.3583 0.2917 0.2583 0.2583 0.2917]; 

y2 = [0.6083 0.6083 0.6417 0.7083 0.7417 0.7417 0.7083 0.6417 0.6083]; 

h = [patch ( ' XData ' , xl, ' YData ' , yl , ' ZData ' , ones (size (xl) ) , ... 

' EdgeColor * , ' none ' , * FaceColor ' , ' k ' ) ; ... 

patch ( 'XData' ,x2, 'YData' ,y2, ' ZData' , ones (size(x2) ) , ... 

’EdgeColor' , 'none' , 'FaceColor' , 'k' ) ] ; 

end; 

else, 

error { [ ‘MRMVTOOL got an unknovm button * ' ' flag w ' to draw. ' ] ) ; 

end; 

elseif strcmp (action, 'btndo' ) , 
if strcmp ( flag, ' zoom' ) , 

inzoom = btnstate (mrmv_fig, ' zoom' zoom' ) ; 
ax = f indob j (mrmv_fig, 'Tag axl ') ; 
if (inzoom) , 

% turning zoom on 

set (mrmv_fig, ' WindowButtonDownFcn' , 'mrmvtool ( ’ 'zoom' ' ) ' , ... 

' WindowButtonUpFcn ' , ' 1; ' , ' ButtonDownFcn ' , ' ' ) ; 
for k=ax{ : ) . ' , 

set (k, 'UserData' , get (k, ' ButtonDownFcn' ) , 'ButtonDownFcn' , ' ' ) ; 
set (findobj (get (k, 'Children' ) , 'Type' , ' line' ) , 'ButtonDownFcn' , ' ' ) ; 

end; 

else, 

% turning zoom off 

set (mrmv_fig, 'WindowButtonDownFcn' , ' ' , 'WindowButtonUpFcn' , 1 ' ) ; 
for k=ax (:).', 

bdf = get (k, 'UserData' ) ; 

set (k, 'ButtonDownFcn' , bdf , 'UserData' , ' ' ) ; 

set ( findobj (get (k, 'Children' ) , 'Type' , ' line' ) , 'ButtonDownFcn' , bdf ) ; 

end; 

end; 

else, 

error ([’ MRMVTOOL got an unknown button flag ‘ ' ' to do.']); 

end; 

elseif strcmp (action, ' zoom' ) , 

% find the axes 

if (gcf -= mrmv_f ig) , return; end; 
oldax = gca; 
if isempty (f lag) , 

ax = mrmvtool {' findax ') ; 
else, 

ax = f indob j (mrmv_fig, 'Tag' , 'axl ') ; 

end; 

if -isempty (ax) , 
axes (ax) ; 

% get the first point 

pts = get (ax, ' CurrentPoint ' ) ; 

pts = [pts (1, 1:2) ;pts( 1,1:2) ] ; 

% do the zoom 

sel = get ( 1 Select ionType' ) ; 
zlab = get (ax, ' ZLabel ' ) ; 
ud = get (zlab, 'UserData' ) ; 

if (strcmp ( sel, ' open' ) | strcmp ( flag, ' restore ')) , 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%*% %%%%%%%%%%%%%%%% 

% There is still a problem with this. For some reason, the ’open' % 

% selection type (double-clicks) isn't ever occurring. I don't % 

% know why. Seems to work in other windows, but not here. % 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*%%%%% %%%%%%%%%%%%%%%%%%%% 

% zoom back to original limits 
if -isempty (ud) , 

if any { size (ud) -=[ 1 4]), 

disp ( 'MRMVTOOL was unable to zoom out because the ''UserData' 
disp ( 'of the ''ZLabel'' of the axes has been corrupted.'); 
else, 

axis (ud) ; 
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mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


set (zlab, 'UserData' , [ 3 ) ; 

end; 

end; 

else, 

if isempty ( f lag) , 

selnorm = strcmp ( sel , ' normal ') ; 
else, 

selnorm = strcmp ( flag, * in' ) ; 

end; 

% store the limits for later restoration 

if isempty (ud), set {zlab, 'UserData' , [get (ax, 'XLim' ) get (ax, ' YLim' ) ] ) ; end; 

% get the second point if needed 
if (selnorm & isempty ( flag) ) , 

% rbbox requires the figure units be pixels 
oldu = get (mrmv_fig, 'Units ') ; 
if (-strcmp (oldu, 'pixels ')) , 

oldp = get (mrmv_fig, ' Position' ) ; 
set (mrmv_f ig, 'Units ' , 'pixels ' ) ; 

end; 

% do the rubber -band box 

rbbox ( [get (mrmv_f ig, ' CurrentPoint ' ) 00] , get (mrmv_f ig, ' CurrentPoint ' ) ) ; 
% restore figure units and position 
if ( -strcmp (oldu, 'pixels ')} , 

set (mrmv_f ig, 'Units ' , oldu) ; 
set (mrmv_f ig, ' Position' , oldp) ; 

end; 

% get the second point 

pt2 = get(ax,'CurrentPoint'); 

pts (2,:) = pt2 (1,1:2) ; 

end; 

% adjust limits for log scaling 

curlim = [get (ax, ' XLim' ) ; get (ax, ' YLim' ) ) . ' ; 

logs = [strcmp (get (ax, 'XScale' ),' log' ) strcmp (get (ax, 'YScale' ),' log' )] ; 
logs = [logs; logs); 
if (any (logs <:))), 

curlim (logs) = loglO (curlim ( logs) ) ; 
pts ( logs) * logl0(pts( logs)); 

end; 

% for menus, make it the middle 
if -isempty ( flag) , 

pts = [ 1; 13 /2* sum (curlim) ; 

end; 

% check proximity of points in units of pixels 
if (selnorm &. isempty ( flag) ) , 
oldu = get (ax, 'Units ') ; 
oldp = get (ax, 'Position' ) ; 
set (ax, ' Units ' , 'pixels ' } ; 
p = get (ax, ' Position' ) ? 
set (ax, 'Units ' , oldu, ' Position' , oldp) ; 

if ( sqrt (sum ( (dif f (pts ) . /dif f { curlim) . *p (3 : 4 ) ) . A 2 ) ) <= 3), 
pts (2 , : ) = pts (1, : ) ; 

end; 

end; 

% determine new limits 
if all (dif f (pts) ==0) , 
factor = 2; 

if (selnorm), factor=l/ factor ; end; 
curlim = factor/2 * dif f (curlim) ; 
curlim = pts + [ -curlim; curlim] ; 
else, 

curlim = [min (pts ) ;max (pts ) ] ; 

end; 

% readjust for log scales 

if (any ( logs (:))) , curlim ( logs ) =10 . A curlim ( logs ) ; end; 

% set the new limits 

set (ax, 'XLim' , curlim ( : , 1 ) . ' , ' YLim' , curlim ( : , 2 ) . ' ) ; 

end; 

end; 

axes (oldax) ; 

ax=f indob j (mrmv_fig, 'Type' , 'axes' , 'Tag' , ' zoom' ) ; 
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mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


if -isempty (ax) , set (mrmv_fig, 'Cur rent Axes ' , ax) ; end; 

elseif strcmp (action, ' keycall ') , 

char = get (mrmv_f ig, ' CurrentCharacter ' ) ; 
if abs (char ) ==127 | abs (char ) ==8 , 
mrmvtool ( 'clear ' ) ? 
elseif abs (char ) ==12 , 
refresh (mrmv_fig) ; 

end; 

elseif strcmp (action, ' findax' ) , 

% I have no idea why the drawnow/drawnow (' discard' ) is necessary, % 

% but if they are not present and if the window is larger than a % 

% certain size then we get a redraw every time this is called. % 

% This may only occur on certain platforms, but in any case, the % 

% drawnow pair should take care of the problem for the time being. % 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
drawnow ; 

pt = get (mrmv_f ig, ' CurrentPoint ' ) ; 

ax = f indob j (mrmv_fig, 'Tag' , 'axl') ; 

oldu = get (ax, 'Units' ) ; 

oldp = get (ax, ' Position' ) ; 

set (ax, ' Units ' , 'pixels ' ) ; 

p = get (ax, ' Position' ) ; 

set (ax, ' Units ' , oldu) ; 

set (ax, ' Position ' , oldp) ; 

drawnow ( 'discard' ) ? 

if ( (pt (1) >=p (1) ) & (pt (2) >=p(2) ) & (pt (1) <=p(l) +p(3) ) & (pt (2)<=p(2)+p(4) ) ) , 
h = ax; 
else, 

h = I) ; 

end; 

elseif strcmp (action, 'moved ') , 

% check where we are and adjust pointer accordingly 
if (mrmv_f ig == gcf ) , 

inzoom = btnstate (mrmv_fig, ' zoom zoom' ) ; 
curptr = get (mrmv_fig, ' Pointer ') ; 
ax = mrmvtool {' findax' ) ; 
if (inzoom & -isempty (ax) ) , 
newptr = ’cross'; 

elseif ( (-isempty (ax) ) fie (-isempty ( f indob j (ax, 'Type' line ' , ... 

’LineStyle' , 'o' , 'Tag' , ' indiceslines ' ) ) ) ) , 

newptr = ‘crosshair'; 
else, 

newptr = ‘arrowy- 

end; 

if -strcmp (curptr , newptr ) , 

set (mrmv__f ig , ' Pointer' , newptr) ; 

end; 

ax=f indob j (mrmv_fig, 'Type' , 'axes' , 'Tag' , 'zoom' ) ; 
if -isempty(ax) , set (mrmv_f ig, ' Cur rent Axes ' , ax) ; end; 

end; 

elseif strcmp (action, ' clear ') , 
if (debugging) , 

disp ( ’MRMVTOOL does nothing with a w clear'' action.'); 

end; 

elseif strcmp (action, ' get ') , 

% this is coded like this such that if getupropO or 
% setupropO are unavailable a work-around could be coded 
h = getuprop (mrmv_f ig, f lag) ; 
if isempty(h), 

if strcmp ( flag, ' realonly' ) , h=0; 

elseif strcmp(f lag, 'outtype' ) , h=0; 

elseif strcmp ( flag, ' showwarnings ') , h=l; 
elsei f strcmp ( flag , ' MPVWeightedColor ' ) , 

h=get { f indobj (mrmv„f ig, ' Tag ' , ' axl ' ) , ' Def aultLineColor ' ) ; 
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mrmvtool.m — Graphical User Interface for mrmv function (cont.) 


end; 

end; 

elseif strcmp (action, ' set ' } , 

% coded for easy work-around if getupropO or setupropO are unavailable 
setuprop (mrmv_f ig, flag, val) ; 

elseif strcmp (action, ' error ') , 

if strcmp ( flag, 'badargs ') , % bad inputs somehow 
error (val) ; 

elseif strcmp (f lag, 'error' ) | strcmp ( flag, 'warning' ) , 

oldfig = gcf; 

oldpointer = get (oldfig, ' Pointer ') ; 

if -strcmp (oldpointer , 'watch' ) , set (oldfig, ' Pointer 'watch' ) ; end; 

% get the dialog 

dialogname=f lag; dialogname (1 ) =upper (dialogname (1) ) ; 

dialogname = ( 'MRMVTool ' dialogname] ; 

h = f indob j ( 'Type' ,' figure' , 'Name' , dialogname) ; 

hnew = -all (size (h) ) ; 

centerpos = mrmvtool (' center loc 1) ; 

if (hnew) , 

h = dialog ( 'Style' , flag, 'Textstring' , val, 'Name' , dialogname, 'Replace' , 'on' ) ; 
set{h, 'Units' , 'pixels' ) ; 
elseif ( length (h) >1) , 

delete (h (2 : length (h) ) ) ; 
h = h (1) ; 

end; 

% center it 

pos = get (h, ' Position' ) ; 
pos(l:2) = centerpos - pos(3:4)/2; 
set(h, 'Position' ,pos) ; 

% if impossible, center over mrmv_fig 
pos = get (h, ' Position' ) ; 

if any (centerpos<pos ( 1 : 2 ) | centerpos>pos (1 : 2) +pos (3 : 4) ) , 
centerpos =mrmvtoo 1 ( 'center loc' ,2) ; 
pos (1:2) = centerpos - pos(3:4)/2; 
set (h, ' Position ' , pos) ; 

end; 

pos = get (h, ' Position' ) ; 

if any (centerpos<pos (1 : 2) | centerpos>pos ( 1 : 2 ) +pos ( 3 : 4 ) ) , 

centerpos=mrmvtool ( 'center loc ' , 3 ) ; 
pos (1:2) = centerpos - pos(3:4)/2; 
set (h, ' Position' ,pos) ; 

end; 

% set the text and properties 
errortexttag = ’errortext'; 
if (hnew) , 

closefunc = [ 1 set (gcf 'Visible of f ''); set (findobj (gcf , ' ... 

' " Tag " , " ' errortexttag '''),'' String' ; 
set (h, ' KeyPressFcn' , ['if (abs (get (gcf , ' ' CurrentChar ' ' ) ) ==13 ' ... 

1 | abs (get (gcf , ' 'CurrentChar ' ' } ) ==3 ) , ’ closefunc * end']); 

set (findobj (h, ' CallBack 'delete (gcf ' CallBack' , closefunc) ; 
set { findobj (h, ' String' , val) , 'Tag' , errortexttag) ; 
mrmvtool ( 'set' , 'subfigs' , [mrmvtool ( 'get' , 'subfigs' ) ;h] ) ; 
else, 

set (findobj (h, 'Tag' , errortexttag) , ' String' , val) ; 

end; 

if -strcmp (oldpointer , 'watch' ) , set (oldfig, ' Pointer ', oldpointer ) ; end; 
figure (h) ; 

set (h, 'Visible' , ' on' ) ; 
drawnow ; 

else, % anything else 
error (val ) ; 

end; 

else, 

error ( [ 'MRMVTOOL got an unknown action: ' ' ' action ’''.']); 


end; 
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8.1.4 mrmvt oo l demo .m — Demo Script for MRMVTool 

mrmvtool_demo runs a simple demonstration of some of the capabilities of the 
mririvtool GUI. 

% mrmvtool_demo Demonstrate the MRMVTOOL GUI . 

% Copyright (c)1996, Erik A. Johnson < johnsone@uiuc . edu> , 5/30/96 
clc 

echo on 

% This script demonstrates some of the abilities of the MRMVTool GUI 
% front-end to MRMV . 

% First set up some data. A simple 4 -degree of freedom system, with 
% 2 inputs and 3 outputs (not collocated) . 

n=4; nrefs=2; no=3; 

[a,b,c,d,M,C,K,PP,l,W] = ndof(n); 
poles=l ( 1 : n) ; 

[a,b,c,d] = ssselect (a, b, c, d, size (b, 2 ) + (1-nref s : 0 ) f 1 : no) ; 

Wrange = (max(W)/min(W)) A (l/3); 

frqs=logspace (loglO (min(W) /Wrange) , loglO (max(W) * Wrange) , 401) . ' ; 
frfs = zeros (length (frqs) , nrefs*no) ; 

for k=l : nref s , frfs ( : , <l:no) + (k-1) *no) =f reqresp (a, b, c,d, k, sqrt (-1) *frqs) ; end; 


pause % Press any key to continue after pauses, 
clc 

% Now we start up the MRMVTOOL graphical user interface 
mrmvtool ; 


pause % Press any key. 
clc 

% The editable text strings must be set to the data computed above. 

% They will generally be typed in by hand, but from an m-file we can do: 

mrmvtool ( ' setstr ' , 'unfiltered' , ' frf s ' ) ; 
mrmvtool ( ' setstr ' , ' f reqs ' , ' frqs ' ) ; 
mrmvtool ( 'setstr' , 'nrefs ' , 'nref s' ) ; 
mrmvtool ( 'setstr ' , ' indices ' , ' # ' all ' ' ' ) ; 
mrmvtool ( ' setstr ' , 'poles ' , 'poles ' ) ; 

% (The GUI functions below will all be done using a command- 1 ine , but 
% the user actions to do the same thing will be given in parenthesis.) 


pause % Press any key. 
clc 

% The Unfiltered Data can be plotted 

% (select 'Unfiltered Data' from the popup menu and hit the 'Plot' button) 

mrmvtool ( 'popup' , 'Unfiltered Data' ) ? 
eval (mrmvtool ( 'plot ' ) ) ; 


Appendix A: Computer Codes 


110 



mrmytool_demo.nl — Demo Script for MRMVTool (cont.) 


pause % Press any key. 
clc 

% The axes limits can be changed by clicking anywhere below or left of the 
% main plot axes. This will bring up the ’Axes Limits Dialog'. 

mrmvtool ( 'choose' , eval {mrmvtool ( 'getstr ' , ' indices '),''' err' ' ' ) , [-inf -inf] ) ; 
axlimdlg = gcf; 


pause % Press any key. 

% The axes limits can be changed and the dialog closed when done, 
if any ( f indob j==axlimdlg) , delete (axlimdlg) ; end; 


pause % Press any key. 
clc 

% The 'magnifying glass' icon, when clicked, enters "zoom* mode, such that 
% clicks in the plot window half the axes limits, centered around that point. 
% (An alt-click (option-click and control-click on the Mac) zooms out.) 

% These functions can also be selected from the MRMVTool menu. 

% For example, to zoom in twice: 

mrmvtool {' zoom' in' } ; drawnow; mrmvtool (' zoom' in'); 


pause % Press any key. 

% The axes limits can be restored to their original values also 
mrmvtool ( ' zoom' , ' restore ' ) ; 


pause % Press any key. 
clc 

% Now compute the reciprocal modal vector matrix (RMVs) 
% (click the 'Compute RMVs' button) 

eval (mrmvtool ( 'compute' ) ) ? 


% And display the filtered response 

% (select 'Filtered Data' from the popup menu and click the 'Plot' button) 

mrmvtool ( 'popup' , ' Filtered Data' ) ; 
eval (mrmvtool ( 'plot ' ) ) ; 


pause % Press any key. 
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mr mvtonl_demo.nl — Demo Script for MRMVTool (cont.) 


clc 

% The filtered data can be saved 

% (type the desired variable name in the box next to the 'to workspace as' 
% button, then click the button) 

mrmvtool ( ' sets tr ' t ' toworkspace * , ' uf r f s ' ) ; 
eval (mrmvtool ( ’ toworkspace ' ) ) ; 


pause % Press any key. 
clc 

% The RMV matrix can be plotted 

% (select 'RMV Matrix' from the popup menu and click the 'Plot' button) 

mrmvtool ( ' popup ' , ' RMV Matrix ') ; 
eval (mrmvtool ( ‘plot ' ) ) ; 


pause % Press any key. 

if strcmp (get (gcf , 'Name ' } , ' MRMVTool Warning'), 

eval (get ( f indob j (gcf , ' String ' , ' OK ' ) , CallBack ' ) ) ; 

end; 

clc 

% And the RMV matrix can also be saved out to the workspace 
% (type the desired variable name in the box next to the 'to workspace as 
% button, then click the button) 

mrmvtool ( ' setstr * , ' toworkspace ' , ' rmv_matrix' } ; 
eval (mrmvtool ( ' toworkspace ' ) ) ; 


% Here is its value 
rmv_matrix 


pause % Press any key. 
clc 

% The RMVs can be restricted to have only real numbers by setting the 
% appropriate checkbox in the Options dialog. 

% First, open the Options dialog 
% (click the 'Options...' button) 
mrmvtool ( ' options * ) ; 

pause % Press any key 

% Now check the 'Restrict RMVs to Real Numbers' box 
mrmvtool ( * options ' , ' realrmv ' , 1 ) ; 

pause % Press any key 

% And close the dialog box 
% (click the 'OK' button) 
mrmvtool ( ' options ' , ' OK ' ) ; 
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mrmvtool_demo.nl — Demo Script for MRMVTool (cont.) 


pause % Press any key. 
clc 

% The RMVs can then be recomputed 
% (click the 'Compute RMVs' button) 

eval (mrmvtool ( 'compute' ) ) ; 


% And its value extracted 

mrmvtool ( 'popup' , ' RMV Matrix' ) ; 

mrmvtool ( * setstr ' , ' toworkspace ' , ' rmv_matrix' ) ; 

eval (mrmvtool ( ' toworkspace ' ) ) 7 

rmv_matrix 


pause % Press any key. 
clc 

% The spectral lines used to compute the RMVs can be restricted by 
% changing the 'Freq. Indices' value. Let us set it to those frequencies 
% within 10% +/- of the actual natural frequencies. 

mask = zeros (size ( frqs) ) ; 

for k=l : length (W) , mask = mask | { f rqs>=0 . 9*W ( k) & f rqs<=l . l*W(k) ) ; end; 
indices = find (mask); 

mrmvtool { 1 setstr ' , ' indices ' , ' indices ' ) ; 
mrmvtool { 'popup' , 'Unfiltered Data' ) ; 
eval (mrmvtool ( 'plot ' } ) ; 

% And recompute the RMVs and extract the RMV matrix 

eval (mrmvtool ( 'compute' ) ) ; 

mrmvtool ( 'popup' , 'RMV Matrix' ) ; 

mrmvtool ( ‘setstr' , ' toworkspace' , ' rmv_matrix' ) ; 

eval (mrmvtool ( * toworkspace ' ) ) 7 

rmv_matrix 


pause % Press any key. 
clc 

% The spectral lines used to compute the RMVs can be chosen by clicking in the 
% plot window if the Unfiltered or Filtered Data has been plotted. 

mrmvtool { 'popup ',' Unfiltered Data'); eval (mrmvtool { 'plot ')) ; 

axl=findobj (mrmvtool ( 'getfig' ) , 'Tag' f 'axl ' ) ; xlims=get (axl, 'XLim' ) ; ylims=get (axl , ' YLim' ) ; 
if strcmp (get (axl, ' YScale' ) , ' log' ) , ycenter=sqrt (prod (ylims) ) ; else, ycenter=sum(ylims ) /2 ; end; 
mrmvtool ( ’ setstr' , ' indices ' ,num2str ( round ( length { frqs ) / 2 ) ) ) ; 

mrmvtool ( 'choose' ,eval (mrmvtool ( 'getstr' , ' indices' ) , ' ' 'err' ' ' ) , [sum(xlims) /2 ycenter] ) ; 
pause % Press any key. 

% Let's choose 10 points (at random) to add/ remove 

xislog=strcmp (get (axl, 'XScale' ) , ' log' ) ; if (xislog) , xlims=log (xlims ) ;end; 
for k=l ; 10 , 
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mrmvtool_demo.m — Demo Script for MRMVTool (cont.) 


pt=sum ( ( [0 1] + [1 -11 *rand) . *xlims) ; 
if (xislog) , pt=exp(pt); end; 

mrmvtool ( ' choose ' , eval (mrmvtool { * getstr ' , ' indices err ' ' ' ) , (pt ycenter ] ) ; 
dr awnow ; 

end; 


pause % Press any key. 
clc 

% The RMVs can be used to filter a new response 

% The same system will be used, but with some multiplicative noise. 

frfs2 = frf s . * { 1+abs { randn ( size { frf s ) ) ) / 1 0 . *exp ( sqrt ( -1 ) *rand(size (f rf s) >*2*pi) ) ; 


% This unfiltered, noisy, response can be plotted 

% (type ' frf s2 ' in the 'Unfiltered Data' text box, select 'Unfiltered Data' 
% in the popup menu and click the ’Plot' button) 

mrmvtool { ' setstr ' , 'unfiltered' , ' frf s2 # ) ; 
mrmvtool ( 'popup' , 'Unfiltered Data' ) ; 
eval (mrmvtool { ‘plot ' ) ) ; 


pause % Press any key. 
clc 

% The same RMVs can then be used to produce the filtered FRFs 
% from the new (noisy) transfer functions 

% (select ‘Filtered Data' in the popup menu and click the 'Plot' button) 

mrmvtool ( 'popup ' , ' Filtered Data ' ) ; 
eval (mrmvtool { ‘plot ' ) ) ; 


pause % Press any key. 
clc 

% The GUI is closed when we are finished 
% (click the 'Exit' button) 

mrmvtool ( * exit ' ) ; 


% This demo is over, 
echo off 
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8.1.5 ndof .m — Simple n Degree of Freedom Systems 

ndof produces the state-space representation of an n degree of freedom system that is used 
in evaluating the MRMV method and various other system identification algorithms. It is 
designed to be able to return continuous- or discrete-time models, in addition to giving the exact 
reciprocal modal vectors computed from the configuration-space mass and stiffness matrices. 
Further options allow simulation of velocity and acceleration output and varying structural charac- 
teristics. 

function [a, b, c, d, M, C, K, PP, 1, W, Z,U,V] = ndof (n, t , outtype,massfract, cfract, kfract) 

% NDOF set up state-space representation of an N degree-of-freedom system. 


% 

% [A f B,C,Dj = NDOF (N) returns the state-space matrices for an N degree- 
% of-freedom system. It is a chain of N identical 

% masses, connected to each other with identical 

% spring /damper couplings like a train, with the 

% first mass also connected with the same coupling 

% to a wall. The outputs of the system are the 

% displacements of each mass. 

% | 

% | k + + k + + + + k + + 

% j — /\/\/ — i i — /\/\/ — i i I i — /\/\/ — i i 

% | ] i m j ] j i j ... | m | ] 1 m | 

% j c + + c + + + + c + + 

% j oo oo oo oo 

% + 

% 

% [A,B,C,D,MM,CC, KK,PP,L,W, Z,U,V] = NDOF (N) also returns: 

% 

% MM,CV,KK mass, damping, and stiffness matrices 

% pp inverse of the configuration-space eigenmatrix; 

% it is the exact reciprocal modal filter matrix, 

% such that PP*measured = modal 

% (sorted by decreasing freq. ) 

% u, V, L the state-space eigenmatrix, its transposed inverse, 

% and eigenvalues (all sorted by decreasing frequency) 

% w,Z modal natural frequency (rad/sec) and damping ratios 

% (assuming the damping decouples) 

% 

% NDOF (N, T) returns (A,B,C,D) in discrete-time with sample time T. 

% T=0 implies continuous-time. 

% 

% NDOF (N, T, OUTTYPE) uses OUTTYPE as the outputs of the system. The default 
% is 'displacement'; other valid choices are 'velocity', 

% and 'acceleration'. 

% 

% NDOF (N,T, OUTTYPE, MASSFRACT) makes the mass MASSFRACT (all if MASSFRACT 
% is a scalar; MASSFRACT (i) for the i-th mass if the 

% length is N) . 

% 

% NDOF (N,T, OUTTYPE, MASSFRACT, DAMPFRACT, ST I FFFRACT) does the same with 

% deanping and stiffness. 


% Copyright (c}1996, Erik A. Johnson < johnsone@uiuc . edu>, 4/10/96 

% check args 
if (nargin<l) , 

error ('NDOF requires at least one argument, the # of degrees-of- freedom. ' ) ; 
elseif (nargin>6) , 

error ('NDOF takes at most 6 arguments.'}; 

end; 

if (nargin<2), 
t=0 ; 

elseif ( length ( t) >1 ) , 

error (‘NDOF requires that the sampling time T be a scalar'); 
elseif (-all (size ( t) )) , 
t=0 ; 

elseif (t<0) , %t<0 could be a flag for something later 
t=abs (t) ; 
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ndof.m — Simple n Degree of Freedom Systems (cont.) 


end; 

if (nargin<3), outtype=[]; end; 

if (-all (size {out type) ) ) , outtype= 'displacement ' ; end; 
if (nargin<4), massfract=[]; end; 
if <nargin<5), cfract = [); end; 
if (nargin<6) , kfract =[]; end; 

% do the fractions 

if (-all (size (massfract) )) , massf ract=ones (n, 1) ; 

elseif ( length (massfract) ==1) , massf ract=massfract*ones (n, 1) ; 

elseif { length (massfract ) ==n) , massf ract=massfract (:) ; 

else, error (*NDOF requires that MASSFRACT be scalar or N-by-1.'); 

end; 

if (-all (size (cfract) )) , cf ract=ones (n, 1) ; 

elseif ( length (cfract) ==1) , cfract=cfract*ones (n, 1) ; 

elseif (length (cfract) ==n) , cf ract=cf ract ( : ) ; 

else, error ( ‘NDOF requires that CFRACT be scalar or N-by-1.'); 
end; 

if (-all (size (kfract) )) , kfract=ones (n, 1 ) ; 

elseif ( length (kfract ) ==1) , kf ract=kf ract*ones (n, 1 ) ; 

elseif (length (kfract ) ==n) , kf ract=kf ract ( : ) ; 

else, error ('NDOF requires that KFRACT be scalar or N-by-1.'); 
end; 

ml= 1 * massfract; 
cl=.l * cfract; 
kl= 1 * kfract; 

M=diag (ml) ; 

C=diag(cl) + diag ( [cl (2 :n) ; 0] ) ; 

K=diag(kl) + diag ( [ kl ( 2 : n) ; 0] ) ; 
if (n>l) , 

C=C-diag (cl (2 :n) , 1) -diag (cl (2 :n) , -1) ; 

K=K-diag(kl (2 :n) ,1) -diag(kl (2 :n) , -1) ; 

end; 

% state-space 

a= [zeros (n) eye(n); -inv(M)*K -inv(M)*C); 
b= [zeros (n) ; inv (M) ] ; 
if ( lower (outtype ( 1 ) ) == 'v ') , 
c=[ zeros (n) eye(n)]; 
d=zeros (n) ; 

elseif (lower (outtype (1) )=='a' ) # 
c=- [ inv (M) *K inv (M) *C) ; 
d=eye (n) ; 

elseif (lower (outtype (1) )== f d' ) , 
c=[eye(n) zeros (n) ] ; 
d=zeros (n) ; 
else, 

error ( [ 'An OUTTYPE value of ' ' ' outtype ( ; ) . ' ' ' ' is not valid. ' ] ) ; 

end; 

% discrete- time? 

if (t-=0) , [a, b] =c2d(a, b, t) ; end; 

if (nargout>7) , 

% principal coordinates (Craig, pp . 341ff ) , sorted by decreasing frequency 
[PP, WW] =eig ( inv (M) *K) ; 

[WW, k] =sort (diag (WW) ) ; 

PP = PP( : ,k(n: -1:1) ) ; 

W = sqrt (WW (n : -1 ; 1 ) ) ; 

CC = PP' * C * PP; 

Z = diag (CC) /2 . /W; 

PP=inv(PP); %note that PP is now the exact modal filter matrix, 

%such that PP* (n-by-1 measured resp) = modal resp 
% check of f -diagonals in damping to see if we decoupled 
CC = (CC - diag ( diag ( CC ) ) ) / norm ( CC ) ; 
if (any (abs (CC ( : ) ) >eps*100) ) , 

disp ( * NDOF : WARNING: damping did not decouple!'); 

end; 
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ndof.m — Simple n Degree of Freedom Systems (cont.) 


% find eigenvalues; rearrange, grouping first of conjugate pairs at beginning 
[U, L] =eig (a) ; 

U= [U ( ; , 1 : 2 ; length (U) ) U ( : , 2 : 2 : length (U) > ] ; 

l=diag (L) ; L=diag( [1 (1:2; length{l) ) ; 1 ( 2 : 2 ; length ( 1) ) ] ) ; l=diag(L) ; 

V=inv (U) . ' ; 

end; 

%% example of how to do a time response using the output of ndof 
%n= 3 ? 

%[a,b,c,d] = ndof(n); 

%t= ( 0 : .05:250) 

%u=randn( length (t) , n) ; 

%[y,x] =lsim(a, b, c, d,u, t) ; 

% 

%u2=randn{ length {t ) , n) ; 

% [y2 , x2 ] =lsim<a, b, c f d, u2 , t) ; 
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8.1.6 normv . m — Compute Norm of Column Vectors 

normv computes the norm of each column of a matrix. It functions identically to the 
standard norm function for a vector argument, but for matrices, norm produces a norm of the 
entire matrix, whereas this function computes the norm of each column, returning a row vector 
with as many elements as the matrix had columns. 

function out = normv (X,P) 

% NORMV Norm of vector or of each column of matrix, 

% 

% NORMV ( X , P ) acts identically to NORM{X,P) if X is a vector (row or column), 

% but if X is a matrix, NORMV performs NORM on each column of X. 

% In other words, Y=NORMV(X,P) is the same as 

% 

% for k=l : size (X, 2 ) , Y ( 1 , k ) =NORM { X ( : , k) , P ) ; end; 

% 

% See also NORM. 

% Copyright (c)1995, Erik A. Johnson < johnsoneSuxh. cso .uiuc . edu>, 7/26/95 


if (size (X,1)<=1) | (size (X, 2 ) <=1) , 
if nargin<2, 

out = norm(X) ? 
else, 

out = norm (X, P) ; 

end; 

else, 

if nargin<2, 

P = 2; 

elseif isstr (P) , 

if strcmp (P, ' inf ' ) , 

P = inf ; 

elseif strcmp {P, ' fro' ) , 

P = 2; 

elseif strcmp (P, ' -inf ') , 

P = -inf; 
else, 

error (' Invalid P string in N0RM2 (X, P) . ' ) ; 

end; 

elseif ( size ( P, 1 ) ~=1) | ( size (P, 2 ) ~=1 ) , 

error (’P in NORM2{X,P) must be a scalar.'); 

end; 

if (P==2 ) , 

out = sqrt (sum(abs (X) . A 2) ) ; 
elseif ( P= = 1 ) , 

out = sum (abs (X) ) ; 
elseif ( P== inf ) , 

out = max(abs(X)); 
elseif (P==-inf ) , 

out = min(abs(X)); 
else, 

out = sum(abs (X) . *P) . * (1/P) ; 

end; 


end; 
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8.1.7 sbys2 stack . m — Stack Side-by-Side Blocks 

sbys2 stack takes a matrix with blocks that are side-by-side and returns a matrix of those 
blocks stacked on top of each other. It is the converse of stack2sbys. 

function y = sbys2 stack (x, N) 

% SBYS2STACK Stack blocks in a matrix. 

% 

% SBYS2STACK (X, N) takes the N side-by-side blocks in X and stacks them. 

% In other words, if X is m-by- (N*n) , and X1,X2,...,XN 

% are m-by-n, and X = [XI X2 X3 ... XN] , then the output 

% is [XI ; X2 ; X3 ; . . . ; XN ] . 

% 

% See also STACK2SBYS, RESHAPE. 

% Copyright (c) 1995, Erik A. Johnson < j ohnsone@uxh . cso . uiuc . edu>, 3/22/95 
error (nargchk {2 , 2 , nargin) ) ; 

if ( isempty (x) ) , y=x. ' ; return; end; %added this line, 3/22/95 
[m, nj =size (x) ; 

if (rem(n,N) -=0) , error(‘The number of columns in X must be a multiple of N,'); end; 
y=zeros (m*N, n/N) ; 

[ii, j j ] =meshgrid( ( (1 :N) -1) *n*m/N, 1 : m) ; 

[ii, 3 3 ] =meshgrid( ( (1 : (n/N) } -1) *m, ii < : > + j j ( : ) ) ; 
y ( : > =x ( ii ( : ) + j j ( : ) ) ; 


8.1.8 stack2sbys .m — Unstack Blocks to Side-by-Side 

stack2sbys takes a matrix with blocks that are stacked on each other and returns a matrix 
of those blocks side-by-side. It is the converse of stack2sbys. 

function y = stack2sbys (x,N) 

% STACK2SBYS Place blocks side-by-side in a matrix. 

% 

% STACK2SBYS (X, N) takes the N stacked blocks in X and places them side-by-side. 

% In other words, if X is (N*m)-by-n, and X1,X2,...,XN 

% are m-by-n, and X = [X1;X2;X3; . . . ;XN] , then the output 

% is [XI X2 X3 . . . XN] . 

% 

% See also SBYS2STACK, RESHAPE. 

% Copyright ( c ) 1995, Erik A. Johnson <johnsone@uxh.cso.uiuc.edu>, 3/22/95 
error {nargchk (2 , 2 , nargin) ) ; 

if ( isempty (x) ) , y=x. r ; return; end; %added this line, 3/22/95 
[m, n] =size (x) ; 

if (rem (m,N) ~=0) , error ('The number of rows in X must be a multiple of N.'); end; 
y=zeros (m/N, n*N) ; 

[ii, j j ] =meshgrid ( ( (1 : n) -1) *m, 1 ; (m/N) ) ; 

[ii, j j } =meshgrid ( ( { 1 :N) -1) * (m/N) , ii ( : ) + j j ( : ) ) ; 
y { : ) =x { ii ( : ) + j j { : ) ) ; 
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8.1.9 str2strmat .m — String Conversion Utility 

str2strmat is a utility function that converts a string vector that contains newline or return 
characters into a string matrix with one row per newline- or return-separated segment. It is used to 
construct the legend text in mnnv_test_adapt. 

function [out, 11] = str2strmat (s , st , en) 

% STR2STRMAT Convert a string to a matrix of strings. 

% 

% STR2STRMAT (STRING) takes as input a STRING of characters with embedded 
% newline (or return) characters, and returns a matrix 

% with each row being a line from the original string. 

% The input STRING is assumed to be a vector, not a 

% matrix. (Zero-padding is used for lines shorter 

% than the longest. The newline/ return character is 

% NOT included in the output.) 

% 

% STR2STRMAT ( STRING, C) does the same, but uses the character C as the 
% line separator. (The character C is NOT included 

% in the output . ) 

% 

% STR2STRMAT (STRING, ST ART INDEX, END INDEX) does the same, but rather than 

% using a particular character as a marker for line 

% endings, this form specifically gives a pair of 

% vectors, STARTINDEX and ENDINDEX (that should be 

% the same size and shape) , that give the starting 

% and ending indices, respectively, into the STRING 

% for each line. 

% 

% [STRMAT, LINELEN] = STR2STRMAT ( . . . ) returns both the string matrix and 
% a column vector of line lengths. 

% Copyright (c)1995, Erik A. Johnson < j ohnsoneSuxh. cso.uiuc.edu>, 8/29/95 
% check # of args 

if (nargin<l) , error (' STR2 STRMAT requires at least one input argument.'); 
elseif (nargout>l) , error (' STR2 STRMAT produces only one output argument.'); 
end; 

% if empty, return empty 

if (-all (size (s) ) ) , out=[]; 11=U; return; end; 

% compute st and en if necessary 
s = s ( : ) ' ; 
if (nargin<3) , 

if (nargin<2), c=sprintf ( 1 \n' ) ; else, c=st; end; 
en=f ind ( s==c ) -1; 
if (length (en) = = 0) , 
en= length (s ) ; 

elseif (en ( length (en) ) +l<length(s) ) , 
en ( length (en) +1) = length (s) ; 

end; 

st = [1 end : length (en) -1) +2] ; 

else, 

en = en ( : ) ' ; 
s t = s t ( : ) ' ; 

if ( length (en) ~=length (st) ) , 

error (' STR2 STRMAT requires that the start and end index matrices be the same size.'); 

end; 

end; 

% allocate a matrix 

ll=en-st+l ; 

nlines = length(ll); 

out=setstr ( zeros (max (11) , nlines) ) ; 

% calculate index into new matrix 

newi = ones ( 1 , sum { 11 ) ) ; 

newi ( cumsum ( 1 1 ) ) = 1+max (11) -11 ; 

newi = cumsum ( [ 1 newi (1 : length (newi) -1)])'; 
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str2strmat.m — String Conversion Utility (cont.) 


% calculate index into old matrix 
oldi = ones { 1 , sum (11) ) ? 

oldi (cumsumdl (1 :nlines-l) ) +1) = st (2 :nlines) -en(l :nlines-l) ; 
oldi (1) = st(l) ; 
oldi = cumsum (oldi ) ; 

% do the transfer 
out(newi) = s(oldi); 
out = out * ; 
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8.2 H„-b\sed Identification Codes 


8.2.1 hinf id . m — // TO -based Identification 

hinf id does //^-based system identification of a single-input, multi-output (SIMO) system 
using pulse response data. Linear and nonlinear algorithms are available, as well as various 
window functions. The resulting output is numerator and denominator polynomial coefficients. 


function [num, den, bound] = hinf id (pulseresp, no , type, n, wind, m, roots_tolerance) 
% HINFID Identify SIMO system via H-infinity identification. 


% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 


[NUM, DEN, BOUND] = HINFID (H, NO, TYPE , n, WIND, m) does an H-infinity 

identification, where 

is the pulse responses (one output per column) of a 
number of single-input, multi-output (SIMO) systems, 
is the number of outputs (default is 1) . 
is either 'linear' or 'nonlinear' (default), specifying 
whether to use the simple linear algorithm or the two- 
stage nonlinear algorithm. 

is the half-window size (default is half #rows(H)) 
is the type of windowing function to use; valid choices are: 
‘boxcar' (the default) (1 in |k|<=n) 

'triang' or 'triangular' (l-|k|/n) 

* trapezoidal ' 

‘cosine ' 


H 


NO 

TYPE 


n 

WIND 


‘trap' or 
‘cos' or 
* hamming ' 

‘ spline' 
'harming' 
'blackman' 
'bartlett ' 

' none ' 

is an optional 

(default value 


Note: 


(1 in 0<=k<=2M, >0 in |k-m|<n) 

(cos (k*pi/ (2N+1 ) ) 

( . 54+ . 4 6 ♦cos (k*pi/n) ) 

( [sin (k*pi/m) *m/ (k*pi) ] *2) 

( [ 1+cos (k*pi/ (n+1) ) ] /2 ) 

( . 42+ . 5* cos (k*pi/n) + . 08*cos (2*k*pi/n) ) 
same as 'triangular' 
uses 'boxcar' 

auxiliary variable used by the ‘trapezoidal' 
is n/2) and ‘spline' (default value size(H,l)) 

NUM is the numerator polynomial of the identified model, 
one row per column of the pulse response H. 

DEN is the denominator polynomial of the identified model, 
one row per column of the pulse response H. 

BOUND is the estimate of the H-infinity identification error bound 
(for the nonlinear algorithm only). Its size is the number 
of columns of H divided by NO. 

n and m must be scalar or vectors, but length (n) , length (m) , 
and size (H, 2) /NO must all be the same or any of them can be 1. 

In other words, if L=[ length (n) length (m) size (H, 2 ) /NO] then 
all (L==max (L) |L<=1) must be true. 


BOUND = HINFID (H, NO, TYPE, n, WIND, m) 


simply returns the identification 
error bound. 


... = HINFID (H, NO, TYPE, n, WIND, m, TOL) sets the tolerance passed to 

minreal to factor out common 
numerator and denominator roots. Pass a negative value to 
only remove common roots at the origin. The default value 
used by minreal is 10*abs ( root ) *sqrt (eps) . 

This is generally required for large n since root solving 
for large polynomials (e.g., order greater than a couple 
hundred) is quite time consuming and may introduce additional 
error . 

[ K, W] = HINFID(H, NO, 'wind' ,n, WIND, m) returns the window function W(K,n). 


% Copyright <c)1996, Erik A. Johnson < j ohnsone@uiuc . edu> , 6/16/96 


% check # of args 

if (nargin<5) , error (' HINFID requires at least 5 input arguments.'); 
elseif (nargin>7 ) , error ( ‘HINFID takes at most 7 input arguments.'); 
elseif (nargout>3), error ( ‘ HINFID produces at most 3 output arguments.'); 
end; 
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hinfid.ni — H°°-based Identification (cont.) 


% handle default values 

if ( isempty (no) ) , no=l; end; 

if ( isempty { type) ) , type= ' nonlinear * ; end; 

if (isstr (type) ) , 

type_orig = type ( ; ) ' ; 

type = lower { [type_orig * * ] ) ; 

if (-any (type (1) ==' lnw' )) , 

error ([' HINFID does not recognize ' ' ' type_orig % ' r as a valid ID TYPE. 

end; 

else, 

error ( 'HINFID requires that the ID TYPE be a string.'); 

end; 

if (isempty (pulseresp) ) , 
if (type(l) ~='w' ) , 

error (' HINFID needs a non-empty pulse response matrix.'); 
else, 

pulseresp = ones ( 4*max (n ( : ) ) +1 , 1 ) ; 

end; 

end; 

if ( isempty (n) ) , n=f loor (N/2 ) ; end; 
if (isempty (wind) ) , wind= ' boxcar ' ; end; 
if (nargin<6), m= [ ] ; end; 
if (nargin<7) , roots_tolerance= [ ] ; end; 

% get some size information and coerce everything to the right size 
[N, M] = size (pulseresp) ; 
if (rem(M,no) -=0) , 

error ( 'HINFID requires that the # of columns in H be a multiple of NO.'); 

end; 

M = M / no; 

if any (2*n( : ) >=N) , error (' HINFID requires that n be less than half size(H,l).') 
if (type ( 1) == ' 1 ' ) , 
k = ( 0 : N-l ) ' ; 
else, 

k = ( 0 : N/2 -floor ( (N-l) /2) :-l] '; 

end; 

m=m(:)'; if ( isempty (m) ) , m= [ ) ; end; 
n=n ( : ) ' ; 

L = (length(m) length(n) M) ; 
if (any (L-=max (L) & L>1) ) , 

error ([ 'HINFID requires that length (n) , length (m), and size (H, 2) /NO ' ... 
'be the same or 1 . ' ] ) ; 

end; 

ii_pr = 1 : size (pulseresp, 2 ) ; 
if (Mcmax <L) ) , 

M = max (L) ; 

ii_pr = ii_pr . ' ; 

ii_pr = ii_pr ( ; , ones (1,M) ) ; 

ii_pr = ii_pr ( ; ) ' ; 

end; 

if (length(m)>0 & length (m) <M) , 
m = m*ones ( 1 , M) ; 

end; 

if (length(n)>0 & length (n) <M) , 
n = n*ones ( 1 , M) ; 

end; 

if (M>1) , k=k ( : , ones ( 1 , M) ) ; end; 
if (N>1), 

if (-isempty (m) ) , m=m (ones (N, 1) , : ) ; end; 
n = n (ones (N, 1 ) , ; ) ; 

end; 

% expand for N0>1 
if (no>l) , 

ii = 1:M; 

ii = ii (ones (no, 1) , : ) ; 
ii = ii ( : ) ' ; 

if (-isempty (m) ) , m=m( : , ii) ; end; 
n = n ( : , i i ) ; 
k = k ( : , ii) ; 

M = M * no; 


end; 
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hinfid.ni — H°°-based Identification (cont.) 


end; 

% handle the different window functions 
wind__ orig = wind( : ) ' ; 
wind = lower ( [wind_orig ‘ ‘ ] ) ; 

wind = wind (1:3) ; 
if (all (wind== 'non' ) ) , 
wind = ' box ' ; 

elseif (all (wind== ' bar ' ) ) , 
wind = ’ tri ' ; 

end; 

if (all (wind== ' box' )) , 

weight = (abs(k) <= n) ; 
elseif (all (wind== ' tri ' ) ) , 

weight = max(l-abs (k) . /n, 0) ? 
elseif (all (wind== ' tra ' ) ) , 

if ( isempty (m) ) , m=f loor (n/2 ) ; end; 
if (any(m{:)<0) | any (m ( : ) >n ( : ) ) ) , 

error ( ’HINFID with trapezoidal windows requires 0 <= m <= n.'); 

end; 

weight = min ( 1 , max ( (n-abs (k-m) ) . / (n-m+ (n==m) ) , 0 ) ) ; 
if (any (n==m&k==n) ) , 

ii = f ind (n==m&k==n) ; 

weight (ii) = ones (length (ii) , 1) ; 

end; 

n = n + m; %because the trapezoidal window is skewed toward causal values 
if any (2*n ( : ) >=N) , 

error ([ ’HINFID with a trapezoidal window requires that n+m be ’ ... 

’less than half size (H, 1) . ' ] ) ; 

end; 

elseif (all (wind== ' cos ' ) ) , 

weight = cos (pi*k . / { 2*n+l ) ) . * (abs(k)<=n); 

elseif (all (wind— 'ham' ) ) , 

weight = ( . 54+ . 46*cos (pi*k . /n) ) . * (abs(k)<=n); 

elseif (all (wind== ' spl ' ) ) # 

if ( isempty (m) ) , m=N; end; 

weight = ( sin (k*pi./m) .*m./ (k+ (k==0 ) ) /pi ) . *2 . * (abs (k) <=n) ; 
if (any (k ( ; ) ==0) ) , 

weight (k= = 0) = weight ( k== 0 ) + (abs (k(k= = 0) ) <=n (k==0) ) ; 

end? 

elseif (all (wind== ' han' ) ) , 

weight = (1+cos (pi*k. / (n+1) } ) /2 .* (abs{k)<=n); 

elseif (all (wind== ' bla ' ) ) , 

weight = ( . 42+ . 5*cos (pi*k. /n) + . 08*cos ( 2*pi*k . /n) ) .* (abs(k)<=n); 

else, 

error ( [ ’HINFID does not recognize ’ ' ' wind_orig . . . 

' ' ' as a valid windowing function. ' ] ) ; 

end; 

% handle window function version 
if (type ( 1 ) == ' w' ) , 
if (N>1), 

[k, ii] = sort (k) ; 
weight = weight { ii ,:) ; 

end; 

num = k ; 

den = weight; 

return; 

end; 

% reduce n back to a row vector 
n = n ( 1 , : ) ; 
clear ( ’k' , 'm' ) ; 

% weight the pulse response 

pulseresp = pulseresp ( : , ii_pr) .* weight; 

if (type (1) == ' 1 ' ) , % handle linear identification 

% get rid of ending 0 terms 
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hinfid.ni — H°°-based Identification (cont.) 


mask = (n>0 & pulseresp (n+l+ (0 : length (n) -1) *M) ==0) ; 
while (anyfmask)), 

n(mask) = n{mask) - 1; 

mask = (n>0 & pulseresp (n+l+ ( 0 : length (n) -1 ) *N) ==0) ; 

end; 

% make some space 
max_n_plus_l = max ( n ) + 1 ; 
num = zeros (M,max_n_plus__l) ; 
den = num; 

% compute it 

den{ <1 ; length (n) ) +M* (max_n_plus_l- (n+1) } ) = ones(M,l); 
for i=l:M, 

num(i,max_n_plus_l-n(i ) :max_n_plus_l ) = pulseresp(l:n(i) +1, i) ' ; 

end; 

% shorten if possible 

while (all (num{ : , 1) ==0 & den ( : , 1) = = 0) ) , 
num { ; , 1 ) = [ ] ; 
den < : , 1 ) = [ ] ; 

end; 

% no bound for linear algorithm 
bound = [ ] ; 

else, % handle nonlinear identification 

% make some space 

num = zeros (M, 4*max (n) +1) ; 

den = num; 

bound = zeros (1 , M/ no) ; 

% compute it 
for i=l:no:M, 

% extract the data for this response 
hw_anticausal = pulseresp (N : -1 :N-n ( i ) +1 , i : i+no-1) ' ; 
hw_causal = pulseresp (1 :n(i) +1, i : i+no-1) ' ; 

% eigenproblem of sum of square of Hankel matrices 
hank2 = zeros{n(i)); 
for j = 1 : no , 

hank2 = hank2 + hankel (hw_anticausal ( j , : ) ) A 2 ; 

end; 

[X,Sigma2] = eig(hank2); 

[junk,ii] = m2tx(diag(Sigma2) ) ; 

xl = X{ : ,ii) ; 

sigmal = sqrt (Sigma2 (ii , ii) ) ; 

% compute the polynomials 
for j = 1 : no , 

Lambda_squiggle = hankel ( (hw_anticausal ( j , n ( i )- 1 ; -1 ; 1 ) hw_causal ( j , : ) ] ) ; 
Lambda_squiggle = Lambda_squiggle {n (i) : -1 : 1, : ) ; 

% compute the estimated model 
numl = xl ' *Lambda_squiggle; 
deni = [xl" zeros (l,n(i) )] ; 

% remove common roots 
if {isempty (roots_tolerance) ) , 

[numl, deni] = minreal (numl , deni ) ; 
elseif (roots_tolerance(l) >=0) , 

[numl, deni] = minreal (numl , deni , roots_tolerance (1) ) ; 
else, 

num_zero_roots = min ( sum {cumprod ( f liplr (numl==0 } ) ) , ... 

sum(cumprod ( f liplr (denl==0} ) ) ) ; 
if {num_zero_roots>0 ) , 

numl ( length (numl )+( l-num_zero_roots : 0) } = []; 
deni ( length (deni ) + ( l-num_zero__roots : 0) ) = []; 

end; 

end; 
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hinfid.m — H<»-based Identification (cont.) 


% insert into outputs 

num ( i-l+j , size (num, 2 )+( 1-length (numl ): 0 ) ) = numl; 
den ( i-l + j , size (den, 2 ) + ( 1-length (deni ): 0 ) ) = deni; 

end; 

bound {{ i-l+no) /no) = sigmal; 

end; 

% shorten outputs if possible 
while (all {num ( : , 1 ) ==0 & den( : , 1) ==0) ) , 
num < : , 1 ) = [ ] ; 
den ( : , 1 ) = [ ] ; 

if { isempty (num) | isempty (den) ) r break; end; 

end; 


end; 

if (nargout<=l) , 
num = bound; 

end; 
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8.2.2 hinf id_test .m — Quick Test of hinf id ff„-based Identification 

hinf id_test does a quick test of the identification function hinf id. It attempts to 
identify the system H(z) = (3 z 2 + 3) / (5z 2 + 2z+ 1) in the presence of noise using linear and 
nonlinear algorithms with various window functions. 

% hinf icLtest .m 

% a very quick test of the H-infinity identification 

num=[3 0 3]? den=[5 21]; % base system: H(z) = (3z A 2+3) / (5z*2+2z+l) 

N=512; % number of data points to use 

n=20; % order of the identification 

epsilon=0.1; % magnitude of the noise 

% identify via linear and nonlinear algorithms with various windows 
types=str2mat { 1 linear ' , ' nonlinear ' ) ; 

windows=str2mat ( 'boxcar' , ' triangular' , ' trapezoidal ' , ' cosine' , ... 

' hamming ' , ' spline ' , ' hanning ' , ' blackman ' ) ; 

% simulate the original system 
[H_exact, omega] =freqz (num, den, N, 'whole ' ) ; 
h_exact = real (if f t (H_exact) ) ; 

% compute some noise 

rand (' seed' , 21217 ) ; % so we can repeat this exactly 

Noise (1 :N/2+l, 1) = [0;exp(sqrt (-1) *rand(N/2-l, 1) *2*pi) ; sign (rand- .5)]; 

Noise (N/2+2 :N, 1) = conj (Noise (N/2 : -1 : 2 , 1 ) ) ? 

% add the noise to the base system 
H_noisy = H__exact + epsilon*Noise; 
h_noisy = real (if ft (H_noisy) ) ; 

% create some space 

nums = zeros (length (n) *size (types, 1) *size (windows , 1) , 3*n) ; 
dens = nums ; 

H = zeros (N, size (nums, 1) ) ; 
bounds = zeros (1, size (nums, 1) ) ; 

% initialize some graphics 
elf ( ' reset ' ) ; 

h = plot ( [ 0 ; 0] , H ( 1 : 2 , : ) , ' k- ' ) ; 
set (gca, 'XLim' , [0 1]); 

xlabel ( * f requency_in_radians*T/pi ' ) ; y label ( 'magnitude of model error'); 
title ( 'H-infinity ID of H (z) = (3z A 2 + 3) / (5z ys 2+2z + l) , noise magnitude 0.1'); 
co = get (gca, 'ColorOrder ' ) ; 
co (all (co' ==1) , : ) = [] ; 
co= [1 1 1 ; co] ; 

if (size (co, 1) >1 & size (co , 1 ) <size (windows, 1) ) , 
extras * size (windows , 1) - size(co,l); 
co = [co; ( 1 : extras) ' / (extras+1) * [1 1 1]]; 

end; 

styles = str2mat ( * - • t * ? 

hwaitbar = waitbar(0, 'Doing identification ...'); 

% loop through all configurations 
for i=l : size ( types , 1 ) , 

this_style = deblank ( styles (rem(i-l, size(styles, 1) ) +1, : ) ) ; 
for j=l : size (windows, 1) , 

% do the identification 

[numl, denl,b] = hinf id(h_noisy , 1 , deblank ( types (i, : ) ) , n, deblank (windows ( j , : ) ) ) ; 

% insert into big storage 

irows = (l:length(n))+length(n)*((i-l)*size(windows,l)+j-l); 
nums (irows , size (nums, 2 )+( 1-size (numl , 2 ): 0 ) ) = numl; 
dens (irows , size (dens, 2 )+ (1-size (deni , 2 ): 0 ) ) = deni; 
if (-isempty ( b ) ) , bounds (1 , irows ) =b; end; 

% compute and plot the magnitude of the model error in freq. domain 
for k=l : length (n) , 

H (:, irows (k) ) = freqz (numl , deni , N, ' whole ') ; 

set (h ( irows (k) ) , 'XData ' , omega/pi # 'YData' , abs (H ( : , irows (k) ) -H_exact > ' ) ; 

end; 
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hinfid_test.m — Quick Test of hinfid H^-based Identification (cont.) 


this_color = co (rem{ j-1, size (co, 1) ) +1, : ) ; 

set {h ( irows) , ' LineStyle ' , this_style, 'Color' , this_color) ; 

waitbar { <i-l+j/size (windows, 1) ) /size (types, 1 ) ) ; 

end; 

end; 

close (hwaitbar) ; 

legend (h( [1+ (0 : size (types, 1) -1) *size (windows, 1) *length(n) . . . 

1+ (0 : size (windows, 1} -1) * length (n) ] ) , ... 

str2mat (upper ( types) , windows) ); 
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8.2.3 hinf id_examplel .m — Example I of ff^-based Identification 

hinf id_examplel runs the first example of H^- based identification. Its task is the iden- 
tification of the simple single-input, single-output system H(z) = (3 z 2 + 3) / (5z 2 + 2z + 1) . 

% hinf id_examplel .m 
echo on 

% This runs the first H-infinity identification example 

% 

% The system is the discrete-time system H (2 ) = < 3z~2+l )/( 5z A 2+2z+l) 


% load in past data if already run 

datafile = ' hinf id_exl ' ; 

eval { ' load (datafile) ; ' , ' comp=l ; ' ) ; 


% set up some variables 

scrn =1; % change to 0 to do hardcopies 

if (scrn) , 

gl = 1; 

g2 = -[1 1 11; 
else, 

gl = 0; 

g2 = [1 1 1] ; 

end; 


% set line colors, styles, and widths 

linestyle=str2mat ( 'x' , ' : ' , ; linestyle=str2mat ( ' , linestyle, linestyle) ; 


linewidth= 

(16; 

4 ; 7 

1 

r 1 ; 

1 ; 

6 ; 2 ; 8 ; 8 ; 8 ] / 8 

markersize= 

[ 6; 

2.5; 6 

6 

‘ 6 ; 

6 ; 

2 . 5 ; 6 ; 6 ; 6 ; 6 ] ; 

graylevel=l- 

[ 1; 

1 ; 1 

1 

r 1 ; 

1 ; 

.4 ; 1 ; .4 ; . 4 ; . 4 ] ; 


mask= (graylevel==0 | graylevel==l | scrn) 
graylevel (mask) = ( 1-graylevel (mask) ) 
graylevel = graylevel ( ; , [1 1 1] ) ; 


%%%%%%%%%%%%%%%%%%%%%%%%% 

% % 

% windowing functions % 

% % 

%%%%%%%%%%%%%%%%%%%%%%%%% 
nn=20; m=f loor (nn/4 ) ; NN=4 *nn ; 

[Kbox, Wbox] = hinf id (ones (NN, 1) , 1, 'wind' ,nn, 'boxcar' ) ; 

[Ktri f Wtri] = hinf id(ones (NN, 1) , 1, 'wind' , nn, ' triang' ) ; 

[Ktra,Wtra] = hinf id (ones (NN, 1) , 1, 'wind' , nn, ' trapez ' ,m) ; 

[Kham,Wham] = hinf id(ones (NN, 1) , 1, 'wind' ,nn, 'hammin' ) ; 

[Kspl , Wspl ] = hinf id (ones (NN, 1) , 1, 'wind' ,nn, 'spline' ,NN) ; 

[Kcos,Wcos] = hinf id (ones (NN, 1) , 1, 'wind' , nn, ' cosine' ) ; 
elf ( 'reset ' ) ; 

h=plot (Kbox/nn, Wbox, ' w- ' , Ktri/nn # Wtri , ' w-- ' , Ktra/nn, Wtra , ' wo ' , ... 

Kham/nn f Wham, ' w: ' , Kspl /nn, Wspl , 'w- .' , Kcos/nn, Wcos , 'wx' ) ? 

axis ( [-1.5 1.5 -.1 1.1J) ? 
set(h([3 6] ) , 'MarkerSize' ,4) ; 

sxlabel ( ' \times (\i k}/{\i n) r ) ; sylabel {' \ times weight'); 

labs = str2mat (’ boxcar triangular ',[' trapezoidal ( { \ i m)=' num2str(m) *)'), ... 

’ Hamming r ,[' spline {{\i M}=' num2str{NN) cosine ') ; 

labs = setstr{ [ones (size (labs, 1) , 1) *' \times\10' labs]); 

[hax, hli , hte] = slegend([.54 .3], h, labs); 
fn = 'hinf id_exl_0_windows ' ; 

if (-scrn) , drawnow; printsto { ' -deps ' , [ fn '.eps']); end; 

stitle ( [ ' \times { \ i H}_{\infty) Identification Windowing Functions {{\i n)=' ... 

num2str(nn) ' , (\i N}=* num2str(NN) ')']); 

drawnow; if (scrn), pause; else, printsto (' -dps 1 ,[ fn '.ps']); end; 
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<*<*><*> 


hinfid_examplel.m — Example I of Hoo-based Identification (cont.) 


%%%%%%%%%%%%%%% 

% 

Example I % 

% 

%%%%%%%%%%%%%%% 
if (comp) , 

N - 512; % number of points in response; must be even 

n = [5 10 20 40 80]; % model orders 

epsilon =0.1; % noise magnitude in frequency domain 

% simulate the original system 
num= [3 0 3 ] ; den= [5 2 1 ] ; 

[H_exact , omega] = freqz (num, den, N, 'whole') ; 

rand (' seed' , 21217) ; % so we can repeat this exactly 

Noise (1 :N/2+l , 1 ) = [0; exp (sqrt (-1) *rand(N/2-l , 1) *2*pi) ; sign (rand- . 5 ) ] ; 
Noise(N/2+2 :N, 1) = conj (Noise (N/2 : -1 : 2 , 1 ) ) ; 

H_noisy = H_exact + epsilon*Noise; 
h_exact = real ( if f t (H_exact) ) ; 
h_noisy = real ( if f t (H_noisy) ) ; 

% compute pulse responses 
[ t , h_exact_s tairs ] = stairs (h_exact) ; 

[t, h_noisy_stairs] = stairs (h_noisy) ; 

% do the identification 

[ num_l in , den_l in ] = hinf id (h_noisy, 1 linear ' , n, ' triangular ') ; 

[num_non, den_non, bounds _n on] = hinf id (h_noisy , 1 , ' nonlinear n, triangular ); 

% compute transfer functions 
H_lin = zeros (N, length (n) ) ; 

H_non = H_lin; 
for i=l : length (n) , 

H_lin{:,i) = freqz (num__lin(i, :) ,den_lin(i, :) ,N, 'whole' ) ; 

H_non { : , i ) = freqz ( num_non ( i , : ) , den_non { i , : ) ,N ( ' whole ' ) ; 

end; 

% pulse response 

h_lin = zeros (N, length (n) ) ; 

h_non = h_lin; 

for i=l : length(n) , 

notzeros = -cumprod (all ( [num_lin { i , : ) ; den_lin { i , : ) ] ==0 ) ) ; 
h_lin( : , i) = dimpulse (num_l in (i , notzeros ) , den_l in ( i , notzeros) ,N) ; 
notzeros = -cumprod (all ( [num_non { i ,:); den_non { i ,:)] ==0) ) ; 
h_non( : , i) = dimpulse (num_non (i, notzeros) , den_non { i, notzeros ) ,N) ? 

end; 

% error in response to random input (relative to exact RMS) 

random_input = randn(N,l); 

hr_lin = zeros (N, length (n) ) ; 

hr_non = hr_lin; 

for i=l : length (n) , 

notzeros = -cumprod (all ( [num_lin(i, ; ) ;den_lin(i/ : ) ] ==0) ) ; 

hr_lin( ; , i) = dlsim (num_l in (i , notzeros ) , den_l in ( i , notzeros ) , random_input ) ; 
notzeros = -cumprod ( all ( [num_non(i, :) ;den_non(i, ;)] ==0) ) ; 

hr_non ( : , i > = dlsim(num_non(i, notzeros) , den_non ( i , notzeros ) , random^ input ) ; 

end; 

hr_exact = dlsim (num, den, random_input) ; 
comp=0; 

save (datafile) ; 

end; 

% plot the pulse responses 
elf ( * reset ' ) ; 

h=plot ( t , h_noisy_stairs , 'y-' , t , h_exact_stairs , 'w- ' ) ; 
set (h ( 1 ) , 'Color' ,gl+g2* . 65, 'LineWidth' ,1); 
set (gca, 'XLim' , [0 50]); 
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hinfid_examplel.m — Example I of H°°-based Identification (cont.) 


sxlabel ( ' \times time { \ i k> ' ) ; sylabel ( ' \times Pulse Response'); 

[hax, hli, hte] = slegend([.58 .65],h([2 1 ]), str2mat {' \ times\10System response ' , ... 

' \times\10with noise, (\i \epsilon) =0 . 1 ' ) ) ; 
fn = 'hinf id_exl_l_pulseresponse' ; 

if (~scrn) , drawnow; printsto ( ' -depsc ' , [ f n * . eps * ] ) ; stfixps([fn '.eps']); end; 
stitle ([' \times Pulse Response of Original System and with Noise'])? 

drawnow; if (scrn) , pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn *.ps']); end? 

% print out the models 
for i=f ind(n( : ) ' <=10) , 

notzeros = ~cumprod(all( [num_lin(i, : ) ;den_lin(i, : } ]==0) ) ; 
disp(tf2str ( num_l in (i , notzeros ) , den_l in ( i, not zeros) , 'z' , 0, ... 

['F_JLin_' num2str (n(i ) ) 1 (z) = '])}; 

notzeros = ~cumprod(all { [num_non(i, ; ) ;den_non(i, : ) ] ==0) ) ; 
disp { tf 2str (num_non ( i , notzeros ) , den_non { i , notzeros ) , ' z ' , 0 , ... 

['F_nonlin_' num2str (n ( i ) ) 1 (z) = '])); 

end; 

bounds__non 


% plot the transfer functions 
elf ( 'reset ' ) ; 

h=plot (omega/pi , abs (H_exact) , omega/pi , abs (H_lin) , omega /pi , abs (H_non) ) ; 
l=line ( . 1, .1, 'Color' , 'k' ) ; set (1, 'XData' , [] , 'YData' , [] , 'ZData' , [] ) ; 
set (gca, 'XLim' , [0 1]); 

for i=l : length (h) , set { h ( i ) , 'LineStyle' , deblank (linestyle (i, :)) , 'Color ' , graylevel (i, ;) , ... 

'Linewidth' , linewidth ( i ) , 'MarkerSize ' , markersize ( i ) ) ; end; 
sxlabel {' \ times normalized frequency {\i\omega T} / { \i\pi) ' ) ; 
sylabel ( ' \ times Transfer Function Magnitude' ) ; 

labs = str2mat ( 'EXACT' , ' { 'Linear ' , 'Nonlinear ' , ' { }','{\i n} = 5', ... 

' { \i n}=10 ' , ' { \i n) =20 ' , ' { \i n}=40','{\i n)=80'); 
labs - setstr ( [ones (size(labs, 1) , 1) * ' \times\10' labs] ) ; 

[hax, hli , hte] = slegend{[.45 .7] f [h{l> ?l;h(6) ;h<ll) ; l;h<2 : 6) ] , labs) ; 
fn = 'hinf id_exl_2_transfunmag' ; 

if (~scrn) , drawnow; printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 

stitle ([' \times Transfer Function of Exact System and Identified Models']); 

drawnow? if (scrn), pause; else, printsto (' -dpsc ',[ fn *.ps']); stfixps([fn '.ps']); end; 

elf { 'reset ' ) ; 

h=plot (omega/pi , angle (H_exact ) /pi* 100 , ... 

omega /pi , angle (H_l in )/pi*180, ... 

omega /pi , angle (H_non )/pi*180); 

1=1 ine { . 1 , .1, 'Color' , 'k' ) ? set (1, 'XData' , [] , 'YData' , [ ] , 'ZData' , [] ) ? 
axis ( [0 1 -120 160] ) ; 

for i = l ; length(h) , set (h ( i) , 'Linestyle ', deblank ( linestyle (i, :)), 'Color ', graylevel ( i, :) , ... 

'LineWidth' , linewidth(i) , 'Markersize' , markersize (i) ) ; end; 
sxlabel {' \ times normalized frequency {\i\omega T} / { \i\pi) ' ) ; 
sylabel ( 1 \times Transfer Function Phase [degrees]'); 

labs = str2mat (' EXACT' { )', 'Linear ', 'Nonlinear { }','{\i n}= 5', ... 

' { \i n} =10 ' , ' { \i n) =20 ' , ' { \i n}=40','{\i n}=80'); 
labs = setstr ( [ones (size ( labs , 1 ), 1 )*' \times\10 ' labs]); 

[hax, hli, hte] = slegend([.3 . 7] , (h(l) ; 1 ; h { 6 ) yh(ll) ? l?h(2 : 6) ] , labs) ; 
fn = ‘hinf id_exl_3_transfunpha ' ; 

if (-scrn), drawnow; printsto (' -depsc fn '.eps']); stfixps([fn '.eps']); end; 

stitle ([' \times Transfer Function of Exact System and Identified Models']); 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

% error in the transfer function 
elf ( ' reset ' ) ; 

h=plot (omega/pi , abs (H_exact*ones (1 , length (n) ) -H_lin) , ... 

omega/pi , abs (H_exact*ones ( 1 , length (n) ) -H_non) ) ; 

1=1 ine ( . 1, .1, 'Color' , 'k' ) ; set (1, 'XData' , [] , 'YData' , [ ] , 'ZData' ,[ Id- 
set (gca, ' XLim' ,[ 0 1]); 

for i=2 : length (h) +1 , set (h ( i-1) , 'LineStyle deblank ( linestyle ( i ,:)), 'Color ' , ... 

graylevel (i, : ) , 'LineWidth' , linewidth(i) , 'Markersize' , markersize (i) ) ; end; 
sxlabel (* \ times normalized frequency (\i\omega T) / { \i\pi) ' ) ? 
sylabel (' \ times Magnitude of Transfer Function Error'); 
labs = str2mat { 'Linear ', 'Nonlinear ',' { )','{\i n}= 5', ... 

'{\i n}=10 ' , ' {\i n) =20 ' , ' { \ i n)=40','{\i n)=80'); 
labs = setstr { [ones (size (labs, 1) , 1) *' \times\10' labs])? 

[hax, hli, hte] =slegend([.3 . 7] , [h (5) ;h(10) ; l;h(l : 5) 3 , labs) ; 
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hinfid_examplel.m — Example I of H°°-based Identification (cont.) 


fn = ' hinfid_exl_4_transf unerr ' ; 

if (-scrn) , drawnow; printsto ( ' -depsc ' , [ fn '.eps']); stfixps{[fn *.eps']); end; 
stitle { [ ' \times Transfer Function Error of Identified Models']); 

drawnow; if ( scrn) , pause; else , printsto ( ' -dp sc ' , [ f n ' . ps ' ] ) ; stf ixps ( [ f n . ps ] ) ; end; 

delete (hax) ; 

axis ( [0 1 0 . 12] ) ; 

set (h( [ 1 6] ) , 'Visible' , 'off' ) ; 

[hax,hli,hte] = slegendU.23 . 79 ] , [h(5) ; h { 10) ; 1 ; h (2 : 5) ] , labs { [1 : 3 5:8],:)); 
drawnow; if (scrn), pause; else, 
fn = 'hinf id_exl_5_transfunerr2 ' ; 

printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); 
stitle ( * ' ) ; 

drawnow; printsto ( ' -depsc ' , [ fn ' . eps ' ] ) ; stf ixps ( [ f n ' . eps ' ] ) ; end; 

% pulse response 
elf ( 'reset' ) ; 

h=plot (0:N-1, [h_exact h_lin h_non] ) ; 

l=line{ .1, .1, 'Color' , 'k' ) ; set (1, 'XData' , [] , 'YData' , [] , 'ZData' ,[]); 
set (gca, 'XLim' , [0 20]); 

for i=l : length(h) , set (h ( i) ,' LineStyle deblank ( linestyle ( i ,:)), 'Color graylevel ( i , : ) , . 

’LineWidth' , linewidth(i) , 'MarkerSize' ,markersize ( i ) ) ; end; 
sxlabel { * \ times time { \ i k) ' ) ; sylabel ( ‘ \times Pulse Response'); 
labs = str2mat ( 'EXACT' , ' { )',' Linear ' , 'Nonlinear { }','{\i n}= 5', ... 

M\i n) =10 ' , ' { \i n) =20 ' , ' { \i n}=40','{\i n}=80'); 
labs = setstr ( [ones ( size ( labs , 1 ) , 1 ) * ' \times\10 ' labs]); 

[hax, hli , hte] = s legend ([.45 . 7] , [h(D ; l?h(6) ;h(ll) ; l;h(2 : 6) ] , labs) ; 
fn = 'hinf id_exl_6_pulseresp' ; 

if (-scrn), drawnow; printsto (' -depsc ',[ fn '.eps']); end; 

stitle ( [ ' \times Pulse Response of Exact System and Identified Models']); 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); end; 

% absolute error in pulse response 
elf ( 'reset ' ) ; 

h=plot (0:N-l,abs (h_exact ( : , ones ( 1 , 2* length (n) } ) - [h_lin h_non] ) ) ; 
l=line< .1, .1, 'Color' , 'k' ) ; set (1, 'XData' , [] , 'YData' , [ ] , 'ZData' ,[]>; 
set (gca, 'XLim' , [0 20]); 

for i=2 : length (h) +1, set (h(i-l) , 'Linestyle' , deblank ( linestyle ( i , ;)), 'Color' , ... 

graylevel (i, : ) , 'LineWidth' , linewidth(i) , 'MarkerSize' , markers ize ( i) ) ; end; 
sxlabel (' \times time {\i k} ' ) ; sylabel (' \ times Pulse Response Absolute Error'); 
labs = str2mat ( ’Linear ', 'Nonlinear { }','{\i n}= 5', ... 

» { \i n>=10','{\i n) =20 ' , ' { \i n}=40','{\i n}=80'); 

labs = setstr ( [ones (size(labs, 1) , 1) *’ \times\10' labs]); 

[hax, hli , hte ] = slegend ([.6 .55], [h (5 ) ; h (10 ) ; 1 ; h ( 1 : 5 ) ] , labs ) ; 
fn = 'hinf id_exl_7_pulseresperr ' ; 

if (-scrn), drawnow; printsto (' -depsc ',[ fn ’.eps']); end; 
stitle ([' \times Pulse Response Error of Identified Models']); 
drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); end; 

% error in response to random input (relative to exact RMS) 
elf { ' reset ' ) ; 

h=plot (0 :N-l,abs (hr_exact ( : , ones ( 1 , 2* length (n) ) ) - ... 

[hr_lin hr_non] ) /sqrt ( sum (hr_exact . *2 ) / length (hr_exact ) ) ) ; 
l=line( .1, .1, 'Color' , 'k' ) ; set(l, 'XData* , [] , 'YData' , [] , 'ZData' ,[]); 
set (gca, ' XLim' ,[ 0 50]); 

for i=2 : length (h) +1 , set(h(i-l) , 'LineStyle' , deblank ( linestyle ( i , ; ) ) , 'Color' , . . ■ 

graylevel (i, : ) , 'LineWidth' , linewidth ( i) , 'MarkerSize' ,markersize { i) ) ; end; 
sxlabel (' \times time (\i k} ' ) ; sylabel (' \times Relative Response Error'); 
labs = str2mat {' Linear ', 'Nonlinear ',' { }','{\i n)= 5', ... 

' { \i n} =10 ' , ' { \i n} =20 ' , ' { \i n}=40','{\i n}=80'); 
labs = setstr ( [ones (size ( labs , 1) , 1) * ’ \times\10 ' labs]); 

[hax, hli, hte] = slegend ([.8 . 77] , (h<5) ;h (10) ; l;h(l : 5) ] , labs) ; 
fn = 'hinf id_exl_8_randresperr ' ; 

if (-scrn), drawnow; printsto (' -depsc ',[ fn '.eps']); end; 
stitle ([' \times Response Error (relative to exact RMS)' ... 

' of Identified Models with Random Input']); 
drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); end; 

% relative difference between linear and nonlinear response to random input 
elf ( 'reset' ) ; 
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hinfid_examplel.ni — Example I of H°°-based Identification (cont.) 


h=plot (0 :N-1 , abs ( (hr_lin-hr_non) * 2.1 (hr_lin+hr_non) ) ) ; 
set (gca, ' XLim' , [ 0 50]); 

for i=2 : length (h) +1 , set {h ( i-1) , 'Linestyle deblank { linestyle (i 'Color ' , ... 

graylevel{i, : ) , 'LineWidth' , linewidth(i) , 'Markersize' , markers i ze ( i ) ) ; 
set (h ( 1 ) , ' LineStyle ' , deblank { linestyle ( 11 , : ) ) , 'Color' , graylevel ( 11 , : ) , ... 

'LineWidth' , linewidth{7) , 'MarkerSize' , markersize ( 11 ) ) ; 
sxlabel ( ' \ times time {\i k} ' ) ; sylabel ( ' \ times Relative Response Difference'); 
labs = str2mat ( 1 { \i n}= 5','{\i n}=10','{\i n}=20' # '{\i n)=40','{\i n}=80'); 

labs = setstr ( [ones (size{labs, 1) , 1) * ' \times\10' labs]}; 
thax, hli , hte] = slegend([.3 . 7] , h(l: 5) , labs) ; 
fn = 'hinfid_exl_9_randrespdif f ' ; 

if (-scrn) , drawnow; printsto ( * -depsc ' , [ fn ' . eps ' ] ) ; end; 

stitle { [ ' \times Relative Response Difference between Linear and ’ ... 

'Nonlineear Identified Models with Random Input']) ; 
drawnow; if (scrn) , pause; else, printsto (' -dpsc ',[ fn '.ps']); end; 


end; 
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8.2.4 hin£id_example2 .m — Example II of /f^-based Identification 

hinf id_example2 runs the second example of f/^-based identification. Its task is the 
identification of a six degree of freedom system with single input and six outputs. 

% hinf id_example2 .m 
echo on 

% This runs the second H-infinity identification example 

% 

% The system is a 6DOF train with identical masses, springs, and dashpots. 


% load in past data if already run 

datafile = 'hinf id_ex2 ' ; 

eval ( ' load (datafile) ; ' , ' comp=l; ' ) ; 


% set up some variables 

scrn =1; % change to 0 to do hardcopies 

if (scrn) , 
gl = 1? 

g2 = -[1 1 1] ; 
else, 

gl = 0? 

g2 = [111); 

end; 


% set line colors, styles, and widths 
linestyle=str2mat (' x' ; 
linewidth= [16; 4 ; 7 ; 1 ; 1 ; 1 ; 

markers ize= [6; 2.6; 6 ; 6 ; 6 ; 6 ; 

graylevel=l- [ 1; 1 ; 1 ; 1 ; 1 ; 1 ; 

mask= (graylevel==0 | graylevel==l | scrn) ; 
graylevel (mask) = { 1-graylevel (mask) ) ; 
graylevel = graylevel ( : , [1 1 1) ) ; 


lines tyle=str2mat ( ' - ' , linestyle, linestyle) ; 
6 ; 2 ; 8 ; 8 ; 8 ]/ 8 ; 

2.5; 6 ; 6 ; 6 ; 6 ] ; 

. 4 ; 1 ; . 4 ; . 4 ; . 4 ] ; 


%%%%%%%%%%%%%%%% 
% % 

% Example II % 
% % 

%%%%%%%%%%%%%%%% 


% sampling time 

% # of degrees of freedom in real system 
% because we can only do SIMO H-inf ID problems 
% number of points in pulse response 
% model orders 

% window to use in identification 
% noise rms relative to pulse response rms 


if (comp) , 

% some parameters 
T = .8; 
nn = 6 ; 

input_number = 1; 

N = 2048; 

n = 2*nn* [2 5 10 20 40) ; 
window = 'trapezoidal'; 
epsilon = 0.1; 


% the exact system specifications 
[ A , B , C , D , MM , CC , KK , PP , L , W , Z ] = ndof(6,T); 
B = B ( : , input_number ) ; 

D = D ( : , input_number ) ; 


% simulate the system 

h_exact = dimpulse (A, B, C, D, 1,N) ; 

% create the noise 

rand ( 'seed' ,21217) ; % so we can repeat this exactly 
Noise { 1 :N/2+l , 1 : nn) = [ zeros ( 1 , nn) ; ... 

exp (sqrt (-1) *rand(N/2-l , nn) *2*pi) ; . . . 

sign(rand(l,nn) - . 5) ] ; 
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hinfid_example2.m — Example II of H°°-based Identification (cont.) 


Noise (N/2+2 :N, 1 :nn) = conj (Noise (N/2 : -1 : 2 , 1 :nn) ) ; 
noise = real ( if ft (Noise) ) ; 

h_noisy = h_exact + noise*epsilon*diag (sqrt (sum (h_exact . *2 ). /sum (noise . *2 ))) ; 

% do the identification 

bounds_non= zeros ( size (n) ) ; 

for i=l : length (n ) , % loop to save memory 

if (n(i)<150), roots_tolerance= [ ] ; else, roots_tolerance=-l ; end; 

[num_linl , den_linl) = hinf id (h_noisy, nn, ' linear ' , ... 

n { i ) , window, [ ] , roots_tolerance ) ; 

(nun\_nonl, den_nonl, bounds_non ( i ) ] = hinf id (h_noisy, nn, 'nonlinear ' , ... 

n(i) , window, [] , roots_tolerance) ; 

if (i==l) , 

num_lin = num_linl; 
den_lin = den_linl; 
num_non = num_nonl ; 
den_non = den_nonl; 
else, 

nz = size (num_linl , 2 ) - size (num_lin, 2 ) ; 
num_lin = l zeros ( size (num_lin, 1 ), nz) num_lin; ... 

zeros (size (num_linl, 1) , -nz) num_linl] ; 
nz = size (den_linl , 2 ) - size (den_lin, 2 ) ; 
den_lin = [zeros (size (den_lin, 1) ,nz) den_lin; ... 

zeros (size (den_linl , 1 ) , -nz ) den_linl ] ; 
nz = size (num_nonl , 2 ) - size (num_non, 2 ) ; 
num_non = [ zeros ( size (num_non, 1 ), nz) num_non; ... 

zeros ( size (num_nonl , 1) , -nz) num_nonl] ; 
nz = size (den_nonl , 2 ) - size (den_non, 2 ) ; 
den_non = [ zeros (size (den_non, 1 ), nz) den_non; ... 

zeros (size (den„nonl , 1) , -nz) den_nonl] ; 

end; 

end; 


comp=0; 

save (datafile) ; 

end; 

bound s_n on 

% plot pulse response of one output 
output_number = 3 ; 
elf ( 'reset ' ) ; 

h=plot (0:N-1, [h_noisy ( : , output_number ) h_exact ( : , output_number) ] , 'w-' ) ; 
set (h(l ) , 'Color' ,gl+g2*.65, 'LineWidth' ,1) ; 
axis((0 N-l [-1 1 ] *max ( abs ( get ( gca , ' YLim ')))]) ; 

sx label (' \ times time { \ i k} ' ) ; sylabel (' \ times Pulse Response'); 

[hax,hli,hte] = slegend([.7 .7],h{[2 1 ]), str2mat ( * \ times\10System response ' , ... 

* \times\10with noise, { \ i \epsilon) =0 . 1 ' ) ) ; 

fn = 'hinf id_ex2_l_pulseresponse' ; 

if (-scrn ) , drawnow; printsto ( ’ -depsc ' , [ fn ' . eps ' ] ) ; stfixps([fn '.eps')); end; 
stitle ( [ ' \times Pulse Response of Mass #' num2str (output_number) ... 

' of Original System and with Noise']); 

drawnow; if (scrn), pause; else, printsto (' -dpse fn '.ps']); stfixps([fn '.ps']); end; 

% compute transfer functions 
NN = 4096; 

H_lin = zeros (NN, nn*length (n) ) ; 

H_non = H_lin; 

for i=l :nn* length (n) , 

H_lin(:,i) = freqz (num_lin(i, : ) , den_lin(i, : ) ,NN) ; 

H_non ( : , i ) = freqz ( num_non ( i , : ) , den_non ( i , : ) , NN ) ; 

end; 

[num_exact , den_exact] = ss2tf(A,B,C,D,l) ; 

H_exact = zeros (NN, nn) ; 
for i=l ; nn, 

[H_exact (:, i) , omega] - freqz (num_exact (i, :), den_exact,NN) ; 

end; 

% plot the exact transfer functions and the modal transfer functions 
elf ( ' reset r ) ; 

ww= [1; 1] *sort (W( : ) ' *T/pi) ; ww=ww(:); mm=l : length (ww) ; mm=10 . A (200* [ (rem (mm, 4 ) -1>0 ) - . 5 ] ) ; 
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hinfid_example2.m — Example II of H°°-based Identification (cont.) 


subplot (2,1,1) ; h=semilogy (ww, mm, 'y-- ' , omega/pi, abs (H_exact) , ' w- ' ) ; 

set (h ( 1 ) , ' LineWidth ' , 1 , ' Color ' , . 4* [ 1 1 1]); set (h (2 : length(h) ) , 'LineWidth' , . 125) ; 

axis ( [0 .6 .02 100)) ; 

set (gca, 'XTickLabels ',''); 

sylatbel ( ' \ times Transfer Function Magnitude' ) ; 

subplot (2, 1,2) ; h=semilogy (ww, mm, 'y--' , omega /pi, abs (H_exact*PP. ' ) , ' w- ' ) ? 

set (h ( 1 ) , 'LineWidth' , 1, 'Color 4* (1 1 1]); set (h ( 2 : length (h) ),' LineWidth' 125 ) ; 

axis ( [0 .6 .02 100]); 

sxlabel ( ' \times normalized frequency {\i\omega T) / { \i\pi) ' ) ; 
sy label (' \times Modal Transfer Function Magnitude'); 
subplot (2,1,1); 

fn = 'hinf id_ex2_2_tfmag_exact ' ; 

if (~scrn) , drawnow; printsto ( ' -depsc ' , [ fn ' . eps ' ] ) ; stfixps([fn ' . eps ' ) ) ; end; 

stitle ( ' \times Transfer Function of Exact System and to Modal Displacements'); 

drawnow; if (scrn) , pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn ’ .ps'] ) ; end? 

% plot some of the transfer functions 
nni=l : 5 ; 

for output_number= [ 1 3]; 
elf ( 1 reset ' ) ; 

h=semi logy (omega /pi , abs (H_exact ( : , output_number ) ) , ... 

omega /pi, abs (H_lin( : , (nni-1) *6+output_number ) ) , ... 

omega /pi, abs (H_non( : , (nni-1) *6+output_number ) ) ) ; 
axis ( [0 . 6+10*eps .01 40]); 

l=line( .1, . 1, 'Color' , 'k' ) ; set (1, 'XData' , (] , 'YData' , [] , 'ZData' , []) ; 

for i=l : length (h) , set (h(i) , 'LineStyle' , deblank (linestyle(i, :)), 'Color' ,graylevel (i, ;) , ... 

'LineWidth' , linewidth(i) , 'MarkerSize' , markers ize ( i ) ) ; end; 
sxlabel (' \ times normalized frequency {\i\omega T) / { \i\pi) ' ) ; 
sylabel (' \ times Transfer Function Magnitude'); 

labs = str2mat ( 'EXACT' ,' { Linear ', 'Nonlinear { }','{\i n}= 24', ... 

* { \i n}= 60', *{\i n} =120 ' , ' { \i n)=240','{\i n)=480'); 

labs = setstr (( ones ( size ( labs , 1 ), 1 )*' \times\ 10 ' labs)); 

[hax, hli , hte] = slegend([.81 . 76 ] , (h ( 1 ) ; 1 ; h ( 6) ; h ( 11) ; l;h (2 : 6) ] , labs) ; 
fn = [ 'hinf id_ex2_3_tfmags ' num2str (output_number) ] ; 

if (-scrn) , drawnow; printsto (' -depsc fn '.eps']); stfixps([fn '.eps']); end; 
stitle ([' \times Transfer Function #' num2str (output_number ) ... 

' of Exact System and Identified Models']}; 

drawnow; if (scrn), pause; else, printsto ( 1 -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 
elf ( ' reset ' ) ; 

h=semilogy (omega/pi , abs (H_exact (:, output_number) ) , ... 

omega/pi , abs (H_lin ( : , (nni-1) *6+output_number ) ) ) ; 
axis([0 .6+10*eps .01 40])? 

l=line ( . 1, .1, 'Color' , ' k' ) ; set (1, 'XData' , [ ] , 'YData' , [ 3 , ' ZData' , [ ] ) ; 

for i=l : length (h) , set (h(i) , 'LineStyle' , deblank ( linestyle ( i , :)), 'Color' , graylevel { i, ;) , ... 

'LineWidth' , linewidth(i) , 'MarkerSize' ,markersize (i) ) ; end; 
set (h (2 ) , 'Linestyle' , deblank ( linestyle ( 11 , : ) ) , 'Color' , graylevel ( 11 , : ) , ... 

'LineWidth' , linewidth(7) , 'MarkerSize' , markersize ( 11 ) ) ; 
sxlabel (' \times normalized frequency (\i\omega T) / { \i\pi) ' ) ; 
sylabel ( ' \times Transfer Function Magnitude' ) ; 
labs = str2mat ( 'EXACT' ,' { }','{\i n}= 24', ... 

‘ { \i n}= 60', '{\i n}=120 ' , ' { \i n)=240','{\i n}=480'); 

labs = setstr ( [ones (size (labs, 1) , 1) *' \times\10 ' labs]); 

[hax, hli , hte ] = s legend ([.81 . 76] , [h(l) ; l;h{2 : 6) ] , labs) ; 
fn = [ 'hinfid_ex2_31_tfmags ' num2str (output_number) ] ; 

if (-scrn) , drawnow; printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
stitle ([' Ntimes Transfer Function #' num2str (output_number ) ... 

' of Exact System and Linear Identified Models']); 
drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

elf ( ' reset ' ) ; 

h=semilogy (omega/pi , abs (H_exact ( : , output_number ) ) , ... 

omega/pi, abs (H_non( : , (nni-1) * 6+output_number } ) ) ; 
axis([0 .6+10*eps .01 40]); 

l=line ( .1, .1, 'Color' , 'k' ) ; set (1, 'XData' , [] , 'YData' , [ ] , 'ZData' , [) ) ; 

for i=l: length (h) , set (h ( i ),' Linestyle deblank ( linestyle ( i ,:)),' Color ', graylevel ( i ,:) , ... 

'LineWidth' , linewidth(i) , 'Markersize' , markersize (i) ) ; end; 
set (h ( 2 ) , 'Linestyle' , deblank ( linestyle ( 11 , : ) } , 'Color' , graylevel (11 , : ) , ... 

'LineWidth' , linewidth(7) , 'Markersize' , markersize (11) ) ? 
sxlabel (’ \ times normalized frequency {\i\omega T) / { \i\pi } ' ) ; 
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hinfid_example2.m — Example II of H°°-based Identification (cont.) 


sylabel (' Ntimes Transfer Function Magnitude'); 
labs = str2mat ( ' EXACT' , ' { }','{Ni n}= 24' , ... 

' { N i n}= 60' , ' {Ni n}=120 ' , ' {\i n}=240','{Ni n}=480'); 

labs = setstr ( [ones {size (labs, 1) , 1) *' NtimesNIO ' labs]); 

[hax,hli,hte] = slegend([.81 . 79 ] , [h ( 1 ) ? 1 ; h ( 2 : 6 ) ] , labs) ; 
fn = [ 'hinf id_ex2_3n_tf mags ' num2str { output_number) ] ; 

if (~scrn) , drawnow; prints to ( * -depsc ' , [ fn '.eps']); stfixps([fn '.eps']); end; 
stitle ( [ * \times Transfer Function #' num2str (output_number ) ... 

* of Exact System and Nonlinear Identified Models']); 
drawnow; if (scrn) ( pause; else, printsto ( ' -dpsc ' , [ fn ‘.ps']); stfixps([fn '.ps']); end; 

elf ( ' reset ' ) ; 

h=plot (omega /pi, 180/pi*angle <H_exact ( : , output_number ) ) , 

omega/pi, 180/pi*angle (H_lin ( : , (nni-1) *6+output_number ) ) , ... 

omega /pi, 180/pi*angle (H_non( : , (nni-1) * 6+output_number ) ) ) ; 
set (gca, ' XLim' , [ 0 . 6+10*eps]}; 

l=line( .1, .1, 'Color ' , 'k' ) ; set (1, 'XData' , [] , 'YData' , [] , 'ZData' , [] ) ; 

for i=l : length (h) , set (h(i) , 'LineStyle' , deblank (linestyle(i, ;)), 'Color' ,graylevel (i, :) , ... 

'LineWidth' , linewidth(i) , 'MarkerSize' ,markersize (i) ) ; end; 
sxlabel ( ' \times normalized frequency {\i\omega T)/ {\i\pi} ' ) ; 
sylabel (' Ntimes Transfer Function Phase [degrees]'); 

labs = str2mat ( 'EXACT' ,' { )', 'Linear 'Nonlinear { }','{\i n}= 24', ... 

'{Ni n>= 60', '{\i n}=120 ' , ' { Ni n)=240','{Ni n)=480'); 

labs = setstr { [ones (size (labs, 1) , 1) *' \times\10 ' labs]); 
if (output_number==l ) , legpos=[.58 .7]; else, legpos=[.53 .3]; end; 

[hax, hli,hte] = s legend (legpos , [h(l) ; 1; h(6);h ( 11) ; 1; h (2 : 6) ] , labs) ; 
fn = [ 'hinf id_ex2__4_tfphas ' num2str (output__number ) ] ; 

if (-scrn) , drawnow; printsto (' -depsc ',[ fn '.eps']); stfixps([fn ' . eps ' ] ) ; end; 
stitle( [' Ntimes Transfer Function #' num2str (output_number ) ... 

' of Exact System and Identified Models']); 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 
elf (' reset ' ) ; 

h=plot (omega /pi, 180/pi*angle (H_exact ( : , output_number) ) , ... 

omega /pi, 180/pi*angle (H_lin( : , (nni-1) *6+output_number) ) ) ; 
set (gca, 'XLim' , [0 .6+10*eps]); 

l=line( .1, .1, 'Color' , 'k' ) ; set(l, 'XData' , [] , 'YData' , [] , 'ZData' , [) ) ; 

for i=l: length (h) , set (h ( i ), 'LineStyle ', deblank ( linestyle (i ,:)),' Color ', graylevel ( i ,:) , ... 

'LineWidth' , linewidth(i) , 'MarkerSize' ,markersize ( i ) ) ; end; 
set (h ( 2 ) , ' LineStyle ' , deblank (linestyle ( 11 , : ) ) , ' Color ' , graylevel ( 11 , : ) , ... 

'LineWidth' , linewidth(7) , 'MarkerSize' , markersize (11) ) ; 
sxlabel ( 1 Ntimes normalized frequency {NiNomega T) / { NiNpi) ' ) ; 
sylabel { ' Ntimes Transfer Function Phase [degrees] ' ) ; 
labs = str2mat (' EXACT' ,' { }','{Ni n}= 24', ... 

'{Ni n}= 60', '{Ni n)=120','{Ni n)=240','{Ni n}=480')? 

labs = setstr ( [ones (size ( labs, 1) , 1) *' NtimesNIO ' labs]); 
if (output_number==l) , legpos=[.58 .7]; else, legpos=[.53 .3]; end; 

[hax,hli,hte] = s legend (legpos , (h(l) ; l;h(2; 6) ] , labs) ; 
fn = [ 'hinf id_ex2_41_tfphas ' num2str (output_number ) ] ; 

if (~scrn), drawnow? printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
stitle ([' Ntimes Transfer Function #' num2str (output_niimber) ... 

' of Exact System and Linear Identified Models']); 
drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

elf ( ‘reset ' ) ; 

h=plot (omega/pi , 180/pi*angle (H_exact ( ; , output_number ) ) , ... 

omega/pi , 180/pi*angle (H_non ( : , (nni-1) *6+output_number ) ) ) ; 
set (gca, ' XLim' ,[ 0 .6+10*eps]); 

Inline ( .1, .1, 'Color' , 'k' ) ; set(l, 'XData' , [] , 'YData' , [] , 'ZData' , [] ) ; 

for i=l : length (h) , set (h(i) , 'Linestyle' , deblank (linestyle (i, :)), 'Color' , graylevel (i, :) , ... 

'LineWidth' , linewidth(i) , 'Markersize' , markersize (i) ) ; end; 
set(h(2) , 'Linestyle' , deblank ( linestyle ( 11 , : ) ) , 'Color' , graylevel (11, : ) , ... 

'LineWidth' , linewidth (7) , 'Markersize' , markersize ( 11 ) ) ; 
sxlabel {' Ntimes normalized frequency (NiNomega T) /{ NiNpi )*) ; 
sylabel (' Ntimes Transfer Function Phase [degrees]'); 
labs = str2mat ( 'EXACT' ( }','{Ni n}= 24', ... 

'{Ni n}= 60', '{Ni n}=120','{Ni n)=240','{Ni n}=480'); 

labs = setstr ( [ones (size (labs, 1) , 1) *' NtimesNIO ' labs]); 
if (output_number==l ) , legpos=[,58 .7]; else, legpos=[.53 .3]; end; 

[hax, hli , hte] = slegend ( legpos , [h { 1 ) ; 1 ; h ( 2 : 6 ) ] , labs) ; 
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hinfid_example2.m — Example II of H«>-based Identification (cont.) 


fn = [ 'hinf id_ex2_4n_tfphas ' num2str (output_number ) ] ; 

if (~scrn) , drawnow; printsto ( * -depsc ' , ( fn * . eps ' ] ) ; stfixps([fn '.eps']); end; 
stitle {[' \times Transfer Function #' num2str (output_number ) ... 

* of Exact System and Nonlinear Identified Models']); 

drawnow; if (scrn) , pause? else, printsto (' -dpsc fn '.ps'J); stfixps{[fn '.ps']); 

elf { ' reset ' ) ? 

h=semilogy (omega/pi , abs (H_exact { : , output_number ) *ones (size (nni) ) - ... 

H_lin ( : , (nni-1 ) *6+output_number ) ) , ... 

omega/pi, abs (H_exact ( : , output_number ) *ones (size (nni) ) - ... 

H_non ( : , (nni-1) *6+output_number ) ) ) ; 
axis([0 . 6+10*eps 5e-5 20]) 

l=line ( . 1, .1, 'Color' , 'k' ) ; set (1, 'XData' , (] , 'YData' , [ ] , 'ZData' , [ ] ) ; 

for i=2 : length (h) +1, set (h(i-l) , 'Linestyle' , deblank (linestyle (i, :)), 'Color' , ... 

graylevel ( i , : ) , 'Linewidth' , linewidth(i) , 'MarkerSize' , markersize ( i ) ) ; 
sxlabel ( ' \times normalized frequency {\i\omega T) / { \i\pi) ' ) ; 
sylabel ( ' \times Transfer Function Error Magnitude'); 
labs = str2mat ( ’Linear f , 'Nonlinear' , ' { }' f '{\i n}= 24', ... 

’ { \i n)= 60', '{\i n}=120 ' , ' { \i n}=240','{\i n>=480'); 

labs = setstr { [ones ( size ( labs, 1) , 1) *' \times\ 10 ' labs]); 

[hax, hli , hte] = slegend([.81 . 79] , (h{5) ;h(10) ; l?h(l : 5) ] , labs) ; 
fn = [ 'hinf id_ex2_5_tfmagserr ' num2str (output_number ) ] ; 

if (-scrn), drawnow; printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
stitle ( [ ' \times Transfer Function #' num2str (output_number ) ... 

' Error of Identified Models']); 

drawnow; if (scrn), pause; else, printsto {' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); 
elf ( 'reset * ) ? 

h= semi logy (omega /pi , abs (H_exact ( : , output_number ) *ones (size (nni) ) - ... 

H_lin( : , (nni-1) *6+output_number ) ) ) ; 
axis([0 ,6+10*eps 5e-5 20]) 

Inline ( . 1, .1, 'Color' , 'k' ) ? set (1, 'XData' , [] , 'YData' , [] , ' ZData' , [] ) ? 

for i=2 : length (h) +1, set (h(i-l) , 'LineStyle' , deblank (linestyle(i, :)), 'Color ' , ... 

graylevel (i, ; ) , 'LineWidth' , linewidth(i) , 'MarkerSize' , markersize { i ) ) ? 
set (h (1) , 'LineStyle ' , deblank ( linestyle ( 11 , : ) ) , ' Color' , graylevel (11 , : ) , ... 

1 LineWidth' , linewidth (7 ) , 'Markersize' , markersize (11) ) ; 
sxlabel (' \ times normalized frequency {\i\omega T}/{\i\pi}'); 
sylabel (' \ times Transfer Function Error Magnitude'); 
labs = str2mat('{\i n}= 24', ... 

’ { \i n}= 60', '{\i n} =120 ' , ' { \i n)=240','{\i n)=480'); 

labs = setstr ( [ones (size ( labs, 1) , 1) *' \times\10 ' labs]); 

[hax, hli, hte] = slegend([.81 . 81] , [h ( 1 ; 5) ) , labs) ; 

fn = [ 'hinf id_ex2_51_tfmagserr ' num2str (output_number) ] ; 

if (-scrn), drawnow; printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
stitle ([' \times Transfer Function #' num2str (output_number ) ... 

* Error of Linear Identified Models']); 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); 
elf ( * reset ' ) ; 

h=semilogy (omega/pi , abs (H_exact ( ; , output_number ) *ones (size (nni) ) - ... 

H_non( : , (nni-1) * 6+output_number ) ) ) ; 
axis([0 .6+10*eps 5e-5 20]) 

l=line ( . 1 , .1, 'Color' , 'k' ) ; set(l, 'XData' , [] , 'YData' , [] , 'ZData' , [] ) ; 

for i=2 ; length (h) +1, set (h ( i-1) ,' Linestyle ', deblank ( linestyle ( i ,:)),' Color ' , ... 

graylevel (i, : ) , 'Linewidth' , linewidth (i) , 'Markersize' , markersize (i) ) ; 
set (h ( 1 ) , 'Linestyle' , deblank ( linestyle ( 11 , : ) ) , 'Color' , graylevel (11,:), ... 

'Linewidth' , linewidth(7) , 'Markersize' , markersize ( 11 ) ) ; 
sxlabel (' \ times normalized frequency {\i\omega T } / { \i\pi ) ' ) ; 
sylabel (' \times Transfer Function Error Magnitude'); 
labs = str2mat(’{\i n}= 24', ... 

* { \i n}= 60', '{\i n) =120 ' , ' { \i n}=240','(\i n}=480'); 

labs = setstr ( [ones (size ( labs, 1) , 1) *' \times\10 ' labs]); 

[hax, hli , hte] = slegend{[.81 . 81 ] , [h ( 1 : 5 ) ] , labs ) ; 

fn = [ 'hinf id_ex2_5n_tfmagserr ' num2str (output_number ) ] ; 

if (-scrn), drawnow; pr intsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
stitle ([' \times Transfer Function #' num2str (output_number ) ... 

' Error of Nonlinear Identified Models']); 

drawnow? if ( scrn) , pause ; else , printsto ( ' -dpsc ' , [ f n ' . ps ' ] ) ; s t f ixps ([fn '.ps']); 
elf ( ' reset ' ) ; 


end; 


end; 


end; 


end; 


end; 


end; 


end; 
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hinfid_example2.m — Example II of H°°-based Identification (cont.) 


h= semi logy (omega /pi , abs (H_lin ( : , (nni-1 ) *6+output_number ) - ... 

H_non( : , (nni-1) *6+output_number ) ) ) ; 
axis ( [0 . 6 + 10 *eps .0003 .2]) 

l=line ( . 1 , .1, 'Color' , 'k' ) ; set (1, 'XData' , [ 3 , ' YData' , ( j , ' ZData' , [ ] ) ; 

for i=2 : length (h) +1, set (h ( i-1) , 'LineStyle deblank ( linestyle (i, :)) , 'Color ' , ... 

graylevel(i, : ) , 'LineWidth' , linewidth(i) , 'Markersize' .markersize ( i) ) ; 
set(h(l) , 'Linestyle' .deblank (linestyle (11, : ) ) , 'Color' , gray level (11, : ) , ... 

‘LineWidth' , linewidth{7) , 'Markersize' , markersize (11) ) ; 
sxlabel ( * \ times normalized frequency {\i\omega T}/ {\i\pi} ' ) ; 
sylabel ( * \ times Transfer Function Difference Magnitude'); 
labs = str2mat ( ‘ { \i n}= 24', ... 

‘ { \ i n}= 60', '{\i n}=120 ' , ' { \i n}=240','{\i n)=480'); 

labs = setstr ( (ones (size(labs, 1) , 1) * ' \times\10' labs]); 

(hax, hli , hte] = slegend{[.4 . 23] , [h(l : 5) ] , labs) ; 

fn = [ *hinfid_ex2_6_tfmagsdif f ' num2str (output__number ) ] ; 

if (~scrn) , drawnow; printsto ( '-depsc' , [ fn ' .eps'3); stfixps([fn ‘ . eps ' ] ) ; end; 
stitle ([ ' \ times Magnitude of Difference between Linear and Nonlinear' ... 

1 Identified Models (#' num2str (output_number) ')']); 
drawnow; if (scrn), pause; else, printsto ( ‘ -dpsc ',[ fn '.ps']); stfixps{[fn ’.ps']); 


end; 
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end; 


end; 


8.2.5 tf 2str .m — Convert TYansfer Function to String 

tf2str converts a transfer function, specified by numerator and denominator polynomial 
coefficient row vectors, into a printable string. 

function out = tf2str (num, den, s, fact, initstr) 

% TF2STR Converts transfer function to printable string. 

% 

% TF2STR (NUM, DEN, S, FACT, INITSTR) converts a transfer function to a 
% printable string representation. 

% 

% TF2STR (NUM, DEN) is the default. Other arguments are optional. 

% 

% S is the character used for the variable, default ‘s'. 

% 

% FACT will cause the numerator and denominator to be printed 

% in a factored representation (unless FACT=0 or 'n'); 

% 

% INITSTR is an initial string to be printed, such as ’X(s) - 

% 

% Note that NUM must be SISO <i.e., single row vector). 

% 

% See also P0LY2STR, P0LY2TEXT . 

% Copyright (c) 1993, Erik A. Johnson <johnsone@uxh.cso.uiuc.edu>, 11/22/93. 

% check arguments 
if nargin==5, 

if -isstr ( initstr ) , 

error (' INITSTR must be a string.'); 

end; 

else, 

if nargin<5, 

initstr = w ? 

end; 

if nargin<4, 
fact=0 ; 

elseif (isstr ( fact ) ) , 
if ( f act== ' n ' ) , 
fact = 0; 
else, 

fact = 1; 

end? 

else, 

fact = (fact ~= 0 ) ; 

end; 

if nargin<3, 
s = 's'; 

end; 

if nargin<2, 
den= [ 1 ] ; 

end; 

if nargincl, 

error ('Got to have some arguments!'); 

end; 

end; 

[nr,nc] = size(num); 
if (nr>l & nc>l) , 

error {‘NUM must be SISO (i.e., a single row vector ).') ; 

end; 

[dr, del = size(den); 
if (dr*dc==l) , 

out = [initstr poly2text (num/den, s , fact ) ] ; 
else , 

if ( fact) , 

while ( length (num) >1 & num(l)==0), 
num = num ( 2 : length {num) ) ; 

end; 

while { length (den) >1 & den(l)==0). 


Appendix A: Computer Codes 


140 



tf2str.m — Convert Transfer Function to String (cont.) 


den = den (2 : length (den) ) ; 

end; 

if (den ( 1 ) -=0) , 

coef = num (1) /den(l) ; 
if (num ( 1 ) ~=0 ) , 

num = num/num(l); 

end; 

den = den/den (1); 

else 


coef = 1; 

end; 

if (coef == -1) , 

initstr = [initstr ' 3 ; 
elseif (coef ~= 1) , 

initstr = [initstr num2str (coef ) ' ' ] ; 

end; 


end; 

numstr = poly2 text (num, s , fact ) ; 
denstr = poly2text (den, s , fact ) ; 
len = max ( length (numstr ), length (denstr )} +2 ; 

numstr= [blanks (floor ( ( len-length (numstr ) ) / 2 ) > numstr blanks (ceil { (len- length (numstr) ) / 2 ) ) ] ; 
denstr= [blanks ( floor ( (len-length (denstr) ) /2) } denstr blanks (ceil { (len-length (denstr ) ) / 2 ) ) ) ; 
out = [blanks (length (initstr) ) numstr; initstr strrep (blanks ( len) , ' *,'-')? 
blanks ( length (initstr) ) denstr] ; 


end; 
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8.2.6 poly2text .m — Convert Polynomial to String 

poly 2 text converts a row vector of polynomial coefficients to a printable string represen- 
tation. 

function out = poly2 text (p, s , fact) 

% POLY2TEXT Printable string representation of a polynomial. 

% 

% POLY2 TEXT (P, S, FACT) converts a polynomial to a printable string 
% representation. S is the character to be used 

% for the variable {default is 's'). FACT (if 

% given and (FACT~=0) & (FACT-= 'n' ) ) returns the 

% polynomial in a factored representation. 

% 

% This function differs from P0LY2STR in that it does the factorization 
% and it doesn't print leading blanks. 

% 

% See also P0LY2STR in the Control System Toolbox. 

% Copyright (c) 1993, Erik A. Johnson <johnsone@uxh.cso.uiuc.edu>, 11/22/93. 

% check arguments 
if nargin<3, 
fact=0 ? 

elseif (isstr ( fact ) ) , 

if { fact== 'n' ) , 
fact = 0; 
else, 

fact = 1; 

end; 

end; 

else, 

fact = (fact -= 0) ; 

end; 

if nargin<2, 
s = 's'; 

end; 

if nargin<l, 

error ('Got to have some arguments!'); 

end; 

% do the work 
if ( length (p) ==1 | -fact), 
out = poly2str (p, s ) ; 

while ( length (out ) >1 & out(l)==' '), 

out = out (2 : length (out )} ; 

end; 

out = deblank ( out ) ; 
else, 

while (length(p)>l & p(l)==0), 
p = p { 2 ; length (p) ) ; 

end; 

if (p(l) == -1) , 
out = * - ' ; 
p = -p; 

elseif (p{l)-=l & p (1) -=0> , 
out = num2str (p (1) ) ; 

p = p / p ( 1 ) ; 

else, 

out = ' ' ; 

end; 

rr = roots (p) ; 
i = 1 ; 

while (i<=length (rr) ) , 

if (imag (rr (i) ) ~= 0) , 

rstr = poly2str (real (poly ( [rr (i) rr (i+1) ] ) ) , s) ; 

i = i + 1; 

else 

rstr = poly2str([l -rr(i)],s); 

end; 

while ( length (rstr ) >1 & rstr(l)==' '), 
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poly2text.m — Convert Polynomial to String (cont.) 

rstr = rstr (2 : length (rstr) ) ; 

end; 

rstr = deblank (rstr ) ; 
out = [out * (' rstr *)']? 

i = i + 1; 

end; 

if (out { 1) == ' % ), 

out = out (2 : length (out) ) ; 

end; 

end; 
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8.3 Eigensystem Realization Algorithm Codes 


8.3.1 era .m — Eigensystem Realization Algorithm 

era is an implementation of the Eigensystem Realization Algorithm developed by J.-N. 
Juang and colleagues. 


function [A, B, C, poles , mshapes , wn, zn, MAC, nout] = era (Y, T , ni , n, rs , k) 

% ERA Identification via the Eigensystem Realization Algorithm. 

% 

[A, B, C] = ERA (Y, T,NI ,N, RS) uses the Eigensystem Realization Algorithm 

(ERA) to identify the system with a given 
pulse response. The input and output arguments are: 


NI 


is the pulse response (each column is a pulse response; 
the response of the i-th output to a pulse on the j-th 
input is in column (i+ ( j -1 ) *no) of Y, where no is the 
number of outputs) 

is the sampling period of the system (defaults to 1) 
is the number of inputs (defaults to 1) 


N is a vector of candidate system orders. Alternately, 

candidate singular value cutoff tolerances (i.e., a 
level below which singular values are considered zero) 
can be passed in N. If all elements of N are positive 
integers, the former is assumed, otherwise the latter. 

A further possible value, N= 'prompt' or N='ask' will 
plot the singular values and ask for a cut-off 
tolerance or order (clicking in the graph window will 
display the point at which the mouse is clicked) . 

RS takes the form of [R S] and is the number of row blocks 
R and column blocks S should be used in forming the 
generalized Hankel matrices. They should generally 
both be at least twice N. If not supplied, they are 
chosen to be f loor ( { size ( Y, 1 ) -K-l) /2 ) to use as much of 
the pulse response Y as possible; this may often be far 
too big (causing a huge, but unnecessary, increase in 
computation time) . If RS is a column vector of the 
same length as N or is a scalar, then R and S are chosen 
to be RS*N (this requires N to be explicitly specified, 
and not ' ask' ) . 

A, B , C are the discrete-time state-space matrices of the 

identified model. If N is a non-scalar vector, then 
the models are given by A= [A1 ; A2 ; . . . ] , B= [Bl ; B2 ; . . . ] ; 

C=[C1 C2 ...}, where the Ai will be padded with extra 
columns if the values of N are not all the same. 

(A, B,C, POLES, MSHAPES, WN, ZN, MAC, N) = ERA ( . . . ) also returns the complex 

discrete-time poles and 
modeshapes, continuous- time natural frequencies (in rads /sec) 
and damping ratios, the Modal Amplitude Coherence (MAC) , and the 
actual system orders, respectively. (The MAC is a measure of 
whether a mode is "true" or noise- induced; it is always in [0,1], 
with smaller values signifying noise-induced modes.) For non- 
scalar N, the poles, natural frequencies, damping ratios, and 
MACs for each candidate model are stacked like the input matrix B 
above and the modeshapes are stacked like the state matrix A above. 

NOTE: The algorithm to compute the values of MAC has not been 

fully tested and may not give accurate MAC results. 

... = ERA ( . . . , K ) also gives the time offset used to compute the model. 

Its default value is 1. 


% Copyright (c)1996, Erik A. Johnson < j ohnsone@uiuc . edu> , 5/30/96 
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era.m — Eigensystem Realization Algorithm (cont.) 


% Some ideas for this code were taken from another implementation of ERA 
% in MATLAB by Allen Prell, graduate student, Dept, of Aero & Astro Engrg., 

% U. of Illinois, December 1994. 

% The primary source for the ERA algorithm used here is: 

% 

% J.-N. Juang and R.S. Pappa, 1985. "An Eigensystem Realization Algorithm 

% for Modal Parameter Identification and Model Reduction.* Journal of 

% Guidance, Control, and Dynamics, 8(5), Sept. -Oct. 1985, 620-627. 

% check # of arguments 

if (nargin<l) , error('ERA requires at least 1 input argument. '); 
elseif (nargin>6) , error('ERA takes at most 6 input arguments.'); 
elseif (nargout>9), error ('ERA produces at most 9 outputs.'); 
end; 

% handle callback 
if isstr (Y) , 

strformat = 'N=%.0f, tol=%g'; 
linetag = 'pt line'; 
txtltag = 'pt text'; 
txt2tag = 'pt text2 ' ; 

1 = f indob j (gcf , 'Tag' , linetag) ; 

tl = f indob j (gcf , 'Tag' , txtltag) ; 
t2 = f indob j (gcf , 'Tag' , txt2 tag) ; 
ptfig = get (gcf , ' CurrentPoint ' ) ; 
posfig = get (gcf Position' ) ; 
pt = get (gca, ' CurrentPoint ') ; 
pt = pt (1, 1:2) ; 
axlims = axis; 

str = sprintf (strformat ,pt) ; 
if strcmp ( Y, ' ButtonDown' ) , 
if (0) , % text method 
disp (str ) ; 
else, 

delete ( [ 1 ; tl ; t2 ] ) ; 

if all (pt>=axlims ( [1 3]) & pt<=axlims ( [2 4])), 
erasemode = 'xor' ; 

1 = line (pt (1) ,pt (2) , 'LineStyle' ,'+', 'Color ', 'w' , ... 

'EraseMode' , erasemode, 'Tag' , linetag) ; 
t = text { [1; 1) *pt (1) , [1; 1] *pt (2 ) , str ( [1 ; 1] , : ) , ... 

'EraseMode' , erasemode, 'Visible' , 'off' , ... 

'FontSize' , round (get (gca, ' Def aultTextFontSize ' ) * . 83) ) ; 
set ( t (1) , 'Tag' , txtltag) ; 
set ( t (2 ) , 'Tag' , txt2tag) ? 

set (gcf, ' WindowButtonUpFcn' , 'era( * 'ButtonUp' ' ) ; ' , ... 

1 WindowButtonMotionFcn' , ' era ( ' 'MouseMoved' ');'); 
era ( 'MouseMoved' ) ; 

end; 

end; 

elseif strcmp (Y, ' MouseMoved' ) & all (ptf ig>=0&ptf ig<=posf ig (3 : 4 ) ) , 
if all (pt>=axlims { [1 3]) & pt<=axlims ( ( 2 4])), 

if -isempty(l), set ( 1 , ' Xdata ' , pt ( 1) , ' Ydata' , pt (2 ) ) ; end; 
if -isempty (t2) , 

set (t2 , ' String' , str, ' Position' , [pt 0] , ' HorizontalAlignment ' , ' lef t ' ) ; 
moveit = get (t2 FontSize ') ; 
set (t2, 'Units' , 'pixels' ) ; 

set { t 2 , ' Position' , get (t2, ' Position' ) + [moveit 0] ) ; 

set ( t2 , ' Units ' , ' data' ) ; 

ext = get ( t2 ,' Extent ') ; 

if (ext ( 1 ) +ext ( 3 ) >= axlims{2)), 

set (t2, ' Position' , [pt 0] , 'HorizontalAlignment' , 'right ' ) ; 
set { t2 , 'Units ' , 'pixels ' ) ; 

set (t2 , ' Position' ,get (t2 , ' Position' ) - [moveit 0) ) ; 
set ( t 2 , 'Units ' , 'data' ) ; 

end; 

if -isempty(tl) , 

set (tl, 'Visible ' , ' of f ' , ' Position' , get ( t2 , ' Position' ) , ... 

'HorizontalAlignment ' , get ( t2 , 'HorizontalAlignment ' ) , ... 

* String ' , str , 'Visible ' , ' on ' ) ; 
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era.m — Eigensystem Realization Algorithm (cont.) 


end; 

end? 

end; 
else , 

delete ( [ 1 ; tl ; t2 ] ) ; 

set (gcf , ' WindowBu 1 1 onUpFcn ' , '1; ' , ' WindowButtonMotionFcn' , ' ' ) ; 
if strcmp (Y, ' ButtonUp ' ) , disp(str); end; 

end; 

return; 

end; 

% handle unsupplied arguments 
if (nargin<2), T= [ ] ? end; 
if (nargin<3), ni= [ ] ; end; 
if (nargin<4), n=[]; end; 
if (nargin<5) , rs=[]? end; 
if (nargin<6) , k=[]; end; 

% determine some sizes 
nk = size (Y, 1 ) ; 
no = size (Y, 2 ) /ni ; 
if (no-=round(no) ) , 

error('ERA requires the # of columns of Y to be a multiple of NI . ' ) ; 

end; 


% set default values 

if isempty(T), T=l; else, T=T(1); end; 
if isempty(ni) , ni=l; else, ni=ni(l); end; 
if isempty(n), n='ask'; end; 
if isempty(rs), rs=[l 1] *f loor ( (nk-k-1) /2 ) ; end; 
if isempty(k) , k=l; else, k=k(l); end; 


% check size of rs 
if (size (rs, 2 ) >2 ) , 

if (size (rs, 1) <=2 ) , 
rs=rs - ' ; 
else, 

error ( ‘ ERA requires that RS have at most 2 columsn.'); 

end; 

end; 

% determine how many candidates we have 
if isstr(n), nn=0; else, n=n (:).'; nn=length (n) ; end; 
rs=rs . ' ; nrs=size (rs , 2 } ; 
if all([nn nrs]<=l), 
nmodels = 1; 

elseif (all([nn nrs]>l) & nn-=nrs) , 

error (' ERA requires that N and RS be empty, have one row, or have the same # of rows, 
else, 

nmodels = max ( [nn nrs]); 

end; 

if (nn==l & nmodels>l) , n =n( :, ones (1, nmodels) ) ; end; 
if (nrs==l & nmodels>l) , rs=rs (:, ones ( 1 , nmodels )) ; end; 
if (size(rs, 1) ==1) , if (nn>0) , rs=n.*rs; end; rs=rs { [ 1 ; 1 ] , : ) ; end; 
nistol = ~isstr(n) & any (n-=round(n) |n<. 5) ; 

% if n is known, preallocate the outputs 
if ~(isstr(n) | nistol), 
maxn = max (n) ; 
sumn = sum(n) ; 

A = zeros (s;imn, maxn) ; 

if (nargout>=2) , B= zeros ( sumn, ni ) ; end; 

if (nargout>=3 ) , C= zeros (no, sumn) ; end; 

if (nargout>=4 ) , poles=zeros ( sumn, 1) ; end; 
if (nargout>=5) , mshapes=zeros (sumn, 1) ; end; 
if (nargout>=8 ) , MAC= zeros (sumn, 1) ; end; 

end; 

nout=zeros (nmodels, 1) ; 

% construct the huge Hankel matrix 
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era.m — Eigensystem Realization Algorithm (cont.) 


maxrs = [max (rs (1 , : ) ) max (rs (2 , : ) ) +k] +1 ; 

H = zeros ([no ni].*maxrs); 
maxnk = max ( sum (rs ) ) + l + k; 
if (nk<maxnk) , 

error { * ERA did not have enough times in Y for the requested [R S] . ' ) ; 

end; 

Y2 = reshape (Y ( 1 : maxnk, :). ' , no, ni*maxnk) ; 
for j=l : maxrs ( 1 ) , 

Y2cols = ( j-1) *ni+l : min (ni* maxnk, (maxrs (2) + j-l) *ni) ; 

H ( (j -1 ) *no+l : j *no, 1 : length (Y2cols ) ) = Y2 ( : , Y2cols } ; 

end; 

% loop over the candidate model orders 
for j=l inmodels, 

% do the singular value decomposition 
r = rs (1, j ) ; 
s = rs (2 , j ) ; 

[P,D,Q] = svd(H(l :no* (r+1) , l:ni* <s + l) ) , 0) ; 
sv = diag(D); 

% determine the truncation point 
if isstr (n) , 

% graph and get the value in ncur 

h=semilogy (sv( : , [1 1])); xlabel(’N'); ylabel ( * Singular Values ') ; 
axis (axis } ; 

set (h(2) , 'LineStyle' , ' o' ) ; 

title {[’ Singular values for [R S] = * mat2str (rs ( : , j ) . ' ) 3 ) ; 
set (gcf , 'WindowButtonDownFcn' , 'era( ’ 'ButtonDown ' ' ) ; ' , ... 

’ WindowButtonUpFcn' , ' 1; ' ) ; 

drawnow; 

ncur = input (’Enter order or cutoff tolerance: ’); 

set (gcf, 'WindowButtonDownFcn' , ' ' ) ; 
title ( ‘ ' ) ; drawnow; 

if i s empty (ncur) , ncur=length (sv) ; end; 
nistol = any (ncur~=round(ncur) |ncur<. 5) ; 
else, 

ncur = n ( j ) ; 

end; 

if (nistol) , 

ncur = sum (sv>=ncur) ; 

end; 

% do the truncation 

D_half = diag (sqrt (sv(l incur) ) ) ; 

D_invhalf = diag(sqrt(l./sv(l:ncur))); 

P ( : , ncur+1 : size (P, 2 ) ) = [); 

Q ( : , ncur+1 : size (Q, 2 ) ) = []; 

% compute the state-space system matrices 

Ai = D_invhalf * P' * H ( 1 :no* (r+1 ) , ni*k+l : ni* (s+l+k) ) * Q * D_invhalf; 
Bi = D_half * Q' * [eye (ni) ; zeros (s*ni, ni) ] ; 

Ci = [eye (no) zeros (no, r*no) ] * P * D_half; 

% insert into outputs 
oldn = sum(nout); 
nout ( j , 1 ) = ncur ; 
irows = oldn+1 : oldn+ncur ; 

A ( irows , 1 : ncur ) = Ai; 

B (irows , 1 : ni ) = Bi; 

C (1 : no, irows ) = Ci; 

% compute poles and modeshapes 
if (nargout> = 4 ) , 

if (nargout<5) , 

polesi = eig(Ai); 
else, 

[mi, polesi] = eig(Ai); 
polesi = diag(polesi); 
mshapes ( irows , 1 :nout ( j ) ) = mi; 

end; 

poles ( irows , 1) = polesi; 

end; 

% compute modal amplitude coherence 
if (nargout>=8) , 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
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era.m — Eigensystem Realization Algorithm (cont.) 


% NOTE: This method of computing the modal amplitude coherence % 
% (MAC) values has not been fully tested and its results % 

% may or may not be accurate. % 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
g = Q * D_invhalf * inv(mi)'; 
b = [eye(ni) zeros (ni , s*ni) ] * g; 
ii = ( 1 : ni ) . ' ; ii=ii ( : , ones ( 1 , s + 1 ) ) ; ii=ii ( : ) ; 
jj = ( 0 : s ) . ' ? j j=j j ( : , ones (l,ncur) ) ; 
zz = polesi ( : , ones (l,ni) ) . ' ; 
gbar a b(ii,:) . * conj (zz ( ii , : ) . * j j { ii , : ) ) ; 

MACi = abs (sum (conj (gbar) . *g )) ... 

. /sqrt (abs (sum (conj (gbar) . *gbar ) ) ... 

. *abs (sum (conj (g ) . *g ))}; 

MAC(irows,l) = MACi.'; 

end; 

end; 

% compute (continuous- time ) natural frequencies and damping 

if (nargout>=6) , 

m = 0; % will it always work with m=0, or do we have to play with it 
s = (log(poles) + 2*m*pi*sqrt ( -1) ) / (k*T) ; 
wn = sqrt (real (s . *conj (s) )) ; 
if (nargout>=7) , 

zn = -real (s) . /sqrt (wn) ; 

end; 

end; 
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8.3.2 era_test.m — Simple ERA Example 

era_test runs an example using era to identify a simple system. 

% era_test.m 

% this script runs a simple identification example using the 
% Eigensystem Realization Algorithm via the era.m m-file. 


% construct a simple 4 degree of freedom system, with 
% 2 inputs and 3 outputs (not collocated) . 

n=4 ; nrefs=2; no=3; 

T = .6; 


[a,b,c,d,M,C,K,PP,l,W,Z] = ndof(n,T); 

[a,b,c,d] = ssselect (a, b, c , d, size (b, 2 ) + (1-nref s : 0 ) , 1 : no) ; 


% get the pulse response 

nt = dtimvec (a , b, c, zeros (size (a, 1) , 1 ) , le-3 ) ; 
resp = zeros (nt , no*nrefs) ; 
for k=l:nrefs, 

resp( : , (k-1) *no+ (1 :no) ) = dimpulse (a, b, c , d, k, nt ) ; 

end; 

% add a little noise 

resp_noisy = resp + sqrt (mean (resp ( :). A 2) ) # randn( size (resp) )/ 10; 

% run ERA 

[A,B,C,poles,mshapes,wn, zn,MAC,nout] = era (resp_noisy, T, nref s, ... 

' ask ' , [ 1 6 ; 2 5 ; 4 0 ; 8 0 ] * [ 1 1] ) ; 


% display natural frequencies and damping 
disp(’ Exact natural frequencies and damping ratios'); 
[junk,ii] = sort(W); 
disp( [W ( ii ) Z (ii) ] ) ; 

disp ( ' % ) ? 

disp (' Estimated natural frequencies and damping ratios'); 
[junk,ii] = sort(wn); 
disp([wn(ii) zn(ii)]); 


Appendix A: Computer Codes 


149 


8.4 Two-Stage Adaptive Monitoring Codes 


8.4.1 rarx_test .m — Evaluating a Two-Stage Adaptive Monitoring 

rarx_test tests one example of a two-stage monitoring algorithm, using the “forgetting 
factor” variant of the recursive least-squares identification with an ARX model of the system. 

function [h,p,yh] = rarx_test (al , a2 , a3 , a4 , a5 , a6 , a7 , a8 , a9 , alO, all , a!2 , al3 , al4 , ... 

315,316,317,318,319,320,321,322,323,324,325,326, . . . 

a27 , a2 8 , a2 9 , a30 , a3 1 , a32 , a33 , a34 , a35, a36 , a37 , a3 8 , a3 9 ) 

% RARX_TEST Uses RARX to identify various NDOF systems. 

% 

% RARX_TEST simulates a (possibly time-varying) n-degree-of- freedom system 
% with sensor noise and uses RARX (Recursive ARX) to identify natural 
% frequencies and damping ratios . 

% 

% The arguments are in variable/value pairs. For example, RARX__TEST ( ' n ' , 6 ) 

% sets the variable n (# of degrees of freedom) to 6. Look at the code for 

% explanations of the variables and their default values. 

% 

% See also RARX_TEST_RUN, RARX. 


% Copyright (c)1996, Erik A. Johnson < johnsone@uiuc . edu>, 7/8/96 


% variables and their default values 


n = 1; 

ni = 1 ; 

no = 1; 

dt = 0.6; 

tO = 0; 

tf = 750; 

dm = 0.0; 

dc = 0.0; 

dk = 0.0; 

nu = 0; 

filt = 8; 

filtcut = 0.6; 

noisemag = 5e-2; 

outtype = 'displacement' 

ff = .97; 

modal response = [ ) ; 


-- MISO systems only 


# of degrees-of-f reedom 

# of inputs 

# of outputs; no>l won't work w/RARX 
time step 
initial time 

length of simulation in seconds 
% mass gradient 
% damping gradient 
stiffness gradient 

number of sinusoids in input; use 0 for random 
order of output low-pass filter; use 0 for no filter 
filter cutoff freq = filtcut/ (2*dt) 
sensor noise (rms_noise/rms_signal) 
sensor type 

forgetting factor; should be in [.97,. 999) 
should we output modal responses 


% parse arguments 
if rem(nargin, 2 ) , 

error ( ' RARX_TEST requires ' 'variable' ' /value pairs. ' ) ; 

end; 

for k=l :nargin/2 , 

eval ( [eval ( [ 1 a ' num2str (k*2-l) ) ) '= a' num2str(k*2) ';']); 

end; 

% number of time steps 
nt = round (tf/dt) ; 


% adjust filter parameter lengths 
if isempty (f ilt) , filt=8; end; 
if isempty ( filtcut ) , filtcut=.6; end; 
if ( length ( filt ) ~=length ( filtcut ) ) , 
if ( length ( filt) ==1) , 

filt = f ilt*ones ( size ( filtcut )) ; 
elseif ( length ( filtcut ) ==1 ) , 

filtcut = filtcut*ones (size ( filt) ) ; 
else , 

error ( v FILT and FILTCUT must be scalar or the same size.'); 

end; 

end; 


% set up time vector 
t = tO + (0 : nt-1 ) . ' *dt ; 

% set up inputs and outputs 
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rarx_test.m — Evaluating a Two-Stage Adaptive Monitoring (cont.) 


inputs = n-ni+l:n; 
outputs = l:no; 

% set up force matrix u 
if (nu>0) , 

urn = randn (nu, ni ) ; 
uw = rand ( nu , ni } *2 ; 
u = zeros (nt , ni ) ; 
for kk=l:nu, 

u = u + um(kk*ones (nt, 1) , : ) . *sin (t*uw (kk, : ) ) ; 

end; 

urms = sqrt {sum (u. ^2 ) /nu) ; 
u = u ,/ urms (ones {nt, 1) ,:) ; 
else, 

u = randn (nt, ni) ; 

end; 

% state initial conditions 
xO = zeros ( 2*n, 1) ; 

% do the integration through time 

if all (dm( : ) ==0 ) &all (dc ( : ) ==0) &all {dk { : ) ==0 ) , 

% time- invariant problems 
[a,b,c,d] = ndof (n, dt , out type) ; 

[a,b,c,d] = ssselect (a, b, c, d, inputs, outputs) ; 

[y,x] = dlsim{a,b,c,d,u,xO) ; 
xx = x (nt , : ) . ' ; 
r = eig(a) ; 
r = r ( ; , ones {1 , nt ) ) ; 
else, 

% set up mass, damping, and stiffness values 
if isstr{dm), dm=eval (dm) ; end; 
if ( length (dm) ==1) , 

dm=dm*rem ( floor ( t / (tf/3) ) ,2) ; 
elseif (length (dm) length (t) ) , 

error {'DM must be scalar, a string, or the same length as the time vector.'); 

end; 

if isstr(dc), dc=eval(dc); end; 
if {length (dc) ==1) , 

dc=dc*rem{ floor ( t / (tf/3) ) , 2) ; 
elseif ( length (dc) -=length (t) } , 

error ('DC must be scalar, a string, or the same length as the time vector.'); 

end; 

if isstr(dk), dk=eval(dk); end; 
if ( length (dk) ==1 ) , 

dk=dk*rem { floor (t/ (tf/3) ) ,2) ; 
elseif ( length (dk) ~=length(t) ) , 

error {'DK must be scalar, a string, or the same length as the time vector.'); 

end; 

mfract=ones (n, 1 ) ; cf ract=ones (n, 1 ) ; kf ract=ones (n, 1 ) ; if r=ceil (n/2 ) ; 

% check for piecewise time-invariants 

ii = [1; f ind{dif f (dm { : ) ) | dif f (dk ( : ) ) | dif f (dc ( : ) ) ) +1 ; nt] ; 
if -isempty ( ii ) , if any {dif f (ii) <10) , ii=ones ( 1 , 1000 ) ; end; end; 
if (length { ii) <=10) , 
y = zeros (nt , no) ; 
x = zeros (nt , 2*n) ; 
r = zeros (2*n, nt) ; 
x(l, : ) = xO { : ) . ' ; 
for kkk=l : length ( ii) -1, 

jj = ii (kkk) : ii (kkk+1) ; 
jjj = ( ii (kkk) +ii (kkk+1) ) /2; 

mfract (ifr) =l-dm( j j j ) ; cf ract ( if r ) =l-dc (j j j) ; kfract (ifr) =l-dk ( j j j ) ; 

{ a, b, c , d] =ndof (n, dt , out type, mfract , cf ract , kfract) ; 

[a,b,c,d] = ssselect(a,b,c,d,inputs,outputs); 

[y ( j j # : ) ,X( j j , ; ) ] = dl s im { a , b , c , d , u ( j j , ;) ,x(ii{ kkk ),:)); 
rr = eig (a) ; 

r(:,jj) = rr {:, ones (1, ii (kkk+1) -ii (kkk) +1) ) ; 

end; 

else, 

% initialize the data 
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rarx_test.m — Evaluating a Two-Stage Adaptive Monitoring (cont.) 


U = U . ' ? 
xx = xO; 

y = zeros {no, nt > ; 
x = zeros (2*n, nt) ; 
r = zeros (2*n, nt) ; 

% do the integration 

[a, b, c, d] = ndof (n, dt , outtype) ; 

[a,b,c,d] = ssselect (a, b,c,d, inputs, outputs) ; 
for k=l:nt, 

y(:,k) = c*xx + d*u(:,k); 
x ( : , k) = xx; 

infract { if r ) =l-dm (k) ; cfract ( if r ) =l-dc (k) ; kf ract (ifr) =l-dk (k) ; 

[a,b,c,d] = ndof (n, dt , outtype, mfr act , cfract , kfract) ; 

[a,b,c,d] = ssselect (a, b, c, d, inputs, outputs) ; 
r { : , k) = eig(a) ; 
xx - a* xx + b*u(:,k); 

end; 

% transpose the outputs 
u = u . ' ; 
x = x . ' ; 

y = y . ' ; 

end; 

end; 

% convert to continuous time roots 
r = log (r . ' ) /dt; 

% compute exact freqency and damping 
[r, w_exact r z_exact ] = thm2rts (r , ' sort ' ) ; 

% set up the initial guess 

[aa, bb, cc, dd] = ndof (n ; dt, outtype) ; 

[aa, bb, cc, dd] = ssselect (aa , bb, cc , dd, inputs , outputs) ; 

[num.den] = ss2tf (aa, bb, cc, dd, 1} ; 

thmO = [den (2 : 2*n+l) num(2;2 # n+l) zeros { 1 , 2*n* (ni-1 ))] ; 

for nni=2:ni, num=ss2tf (aa, bb, cc , dd, nni ) ; thmO ( ( 1 : 2 *n) +nni*2 *n) =num ( 2 : 2*n+l ) ; end; 
held=ishold; 

co = get (gca, 'ColorOrder ' ) ; 
coi = 0; 
h = [] ; 
p = [ ] ; 

yh = [ ] ; 

noise = randn(size (y) ) . * (ones (nt, 1) *sqrt (sum(y . A 2) /nt ) ) ; 
for nn=l : length (noisemag) , 

% add some sensor noise 
yn = y + noise*noisemag (nn) ; 
un = u ; 

yn_un f i 1 1 = yn; 
un_unfilt = un; 
for nf ilt=l : length ( filt) , 

% optionally pass the output through a low-pass filter 
if (filt (nfilt)==0) , 
yn = yn_unf ilt ; 
un = un_un filt; 
else, 

[filtNum, f iltDen] = butter (filt (nf ilt) , filtcut (nf ilt) ) ; 

for kk=l : size (yn, 2) , yn (:, kk) =dlsim ( filtNum, f iltDen, yn_unf ilt (:, kk) ) ; end 
for kk=l : size (un, 2) , un (:, kk) =dlsim ( filtNum, f iltDen, unjjnf ilt (:, kk) } ; end 

end; 

% loop over various ff's 
for nf =1 : length ( ff ) , 

% do the identification 

norders = [2*n 2*n*ones ( 1 , ni ) ones(l,ni)]; 

[ thm, yhat] =rarx ( [yn un] , norders , ' f f ' , f f (nf ) , thmO) ; 

% do the output 
if -isempty (modalresponse) , 

% get the modal responses 
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rarx_test.m — Evaluating a Two-Stage Adaptive Monitoring (cont.) 


nvar=zeros (no) ; %assume nvar{0) ~= mean nvar 

nvar ( : ) =sum( (yn ( : , ones (no, 1 ) * { 1 : no) ) -yhat ( : , (1 :no) ' *ones ( 1, no) ) ) . A 2 ) ' ; 
[hl,pl,yhl] = rarx_kf ( [yn un] ,norders, thm,dt, modalresponse, nvar, yhat) ; 
h= [h hi]; 
p= [p pi) ; 
yh= [yh yhl]; 
else, 

% find the roots 

[r,w,z] = thm2rts (thm, 2*n, dt , 1 sort ' ) ; 

% plot the data 

hl=plot (t, w_exact, ' : ' , t, z_exact, # f ) ; 
hold{ ' on' ) ; 
h2=plot (t, w, t, z) ; 

set ( [hl;h2] , 'Color' , co ( l+rem(coi , size (co, 1) ) , : ) ) ; 
coi = coi + 1; 
drawnow ; 
h= [h; hi ?h2] ; 

end; 

end; 

end; 

end; 

if (-held), hold ('off'); end; 
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8.4.2 rarx_test_run . m — Evaluating Several Two-Stage Adaptive Monitoring Examples 

rarx_test_run runs a number of tests of the two-stage adaptive monitoring using 
rarx_test and plots the results. The effects of various parameters (e.g., the forgetting factor, 
noise magnitude, etc.) on one, two, and six degree of freedom systems are examined. 

% rarx_test_run 

% 

% This does a bunch of runs of rarx_test with different arguments 

scrn = 0 ; 

c3 = [.4 .7 .99] ; 

c4 = [.3 .53 .76 .993; 

13 = (11 .5]; 

14 = [1 1 .5 .5] ; 

if (scrn), ggg=[0 1]; else, ggg=[l -1]; end; 
ggg = [1 -1] ; % [0 1]; %[1 -11 for printouts 


%%%%%%%%%%%%%%% 

% % 

% RARX Stuff % 

% % 

%%%%%%%%%%%%%%% 

t = (0:750) . ' ; 

plot ( t , exp ( (750- 1) * log ( I . 95 .97 .98 .99 .995]))); 
axis ( [0 750 0 1] ) ? 

sxlabel ( ' \ times time [secs)'); sy label (' \ times weight ') ; 
fn = ' 00_f f_on_rarx' ; 

drawnow; if (scrn), pause; else, printsto ( ' -deps ' , [ fn '.eps']); end; 

title ([' Forgetting factor causes past data to be weighted exponentially smaller (' ... 

f n ‘ ) ' ] , ' FontName ' , ' Times ' ) ; 

drawnow; if (scrn), pause; else, printsto ( 1 -dps ',[ fn '.ps']); end; 


%%%%%%%%%%%%%%% 

% % 

% SDOF SISO % 

% % 

%%%%%%%%%%%%%%% 

% effect of ff on time- invariant problem 
elf { 'reset * ) ; 

h=rarx_test ( 'n' , 1, ' dm' ,0,'ff',[.95 .98 .99 .995]); 

c=eval ( [ 'c ' num2str ( length (h) / 4 ) ] ) ; l=eval(['l' num2str ( length (h) /4 )]) ; 

for k=l : length (c) , set (h ( (1 : 4 ) + (k-1 ) *4 ) , ' Color ' , [ 1 1 1] Mggg<l)+ggg<2) *c (k) ) , ... 

1 LineWidth' , 1 (k) ) ; end; 

axis ( [0 750 .97 1.04] ) 

[hax, hli , hte] = slegend ( 'mouse h (4 : 4 : length (h) ) , ... 

str2mat ( ' \times\10 { Vita lie \ lambda) = 0.95*, ... 

' \timesM0 { \italic\ lambda) = 0.98', ... 

' \times\10 { \ italic \lambda) = 0.99', ... 

' \times\10 { \italic\ lambda) = 0.995')); 

sxlabel ('\times time [secs]'); sylabel ( ' \times frequency [ \ frac{ rads) {sec} ]') ; 
fn = ' 01_f f_on_ti_siso_sdof_w' ; 

drawnow; pause ; if ( -scrn) , printsto { * -depsc # , [ f n ’ . eps ' ] ) ; stf ixps ( [ fn . eps ] ) , end, 
title {[ 'Effect of forgetting factor on time- invariant SDOF SISO (' fn ')'], ... 

' FontName ' , ' Times ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',( fn '.ps']); stfixps([fn '.ps']); end; 

axis ( [ 0 750 .02 .1] ) 

sylabel (' \times damping ratio'); 

fn = '01_f f_on_ti_siso_sdof_z' ; 

drawnow; pause;if (-scrn), printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 
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rarx_test_run.m — Evaluating Several Two-Stage Adaptive Monitoring Examples (cont.) 

title ( ' ' ) ; 

drawnow; if (scrn) , pause; else, printsto (' -depsc ',[ fn ' . eps ' ] ) ; stfixps([fn ' . eps ' ] ) ; end; 


% effect of noise on time- invariant 
elf ( ' reset ' ) ? 

h=rarx_test ( ' n' , 1, ' dm' , 0 , ' f f ' f . 98 , ' noisemag' , [ . 25 .1 ,05 .01]); 

c=eval(['c' num2str { length (h) /4) ] ) ; l=eval(['l' num2str {length (h) /4 )]) ; 

for k=l : length (c) , set (h ( ( 1 : 4 ) + (k-1) *4 ) , ' Color ' , [ 1 1 1 ] Mggg ( 1 ) +ggg < 2 ) *c (k) ) , ... 

'LineWidth' , 1 (k) ) ; end; 

axis ( [ 0 750 .97 1.14] ) ; 

[hax, hli, hte] = slegend{ ‘mouse' , h(4 :4: length (h) ) , ... 

str2mat {' \ times \10rms_ (noise) = 0.25', ... 

‘ \times\10rms_{noise} =0.10', ... 

' \times\10rms_{noise} = 0.05', ... 

1 \ times\10rms_{noise) = 0.01')); 

sxlabel ( ' \ times time [secs]'); sy label (' \ times frequency [ \frac{ rads) {sec} ]') ; 
fn = * 02_noise_on_ti_siso_sdof_w' ; 

drawnow; pause; if (-scrn) , printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
title ([' Effect of sensor noise rms on time-invariant SDOF SISO (' fn ')'], 'FontName' , 'Times ') ; 
drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

axis ( [0 750 .03 .2] ) ; 

sylabel ( '\ times damping ratio' ) ? 

fn = ' 02_noise_on_ti_siso_sdof_z ' ; 

drawnow; pause; if {-scrn), printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ',[ fn ’.eps']); stfixps([fn '.eps']); end; 


% effect of filtering on time- invariant 
elf ( 'reset ' ) ; 

h=rarx_test ( ’n' , 1, 'dm' , 0, ' f f ' , . 99 , ' f ilt ' , [0 1 4 8]); 

c=eval{['c' num2str ( length (h) / 4 ) ] ) ; l=eval([’l' num2str ( length (h) /4) ] ) ; 

for k=l : length {c) , set (h ( ( 1 : 4 ) + (k-1 ) *4 ) , ' Color ' , [ 1 1 1] * (ggg ( 1) +ggg (2 ) *c (k) ) , ... 

'LineWidth' , 1 {k) ) ; end; 

axis ( [0 750 .97 1.04]) 

[hax, hli, hte] = slegend { 'mouse ', h (4 : 4 : length (h) ) , ... 

str2mat ( ’ \times\10no filter', ... 

' \times\10f ilter order =1', ... 

' \times\10f ilter order =4', ... 

' \times\10f ilter order = 8')); 

sxlabel (' \ times time [secs]'); sylabel (' \ times frequency [ \frac{rads) {sec} ]') ; 
fn = ' 03_f ilt_on_ti_siso_sdof_w' ; 

drawnow; pause; if (-scrn), printsto { * -depsc ',[ fn '.eps']); stfixpsUfn '.eps']); end; 
title ([' Effect of filtering on time- invariant SDOF SISO {' fn ')'],' FontName Times ') ; 
drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

axis ( [0 750 .03 .1] ) 

sylabel ( ’ \ times damping ratio' ) ; 

fn = ' 03_f ilt_on_ti_siso_sdof_z ' ; 

drawnow; pause; if (-scrn), printsto (' -dpsc ',[ fn '.ps']); stfixps{[fn ’.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ',[ fn '.eps']); stfixpsUfn '.eps']); end; 


% effect of ff on piece-wise time -invariant (decrease mass) 
elf ( ' reset ' ) ; 

h=rarx_tes t ( ' n ' , 1 , 'dm' , ' rem{ floor (t/ (tf/3) ) , 2 ) /2 ' , ' f f ' , [ . 95 .98 .99]); 
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rarx_test_run.m — Evaluating Several Two-Stage Adaptive Monitoring Examples (cont.) 


c=eval (pc' num2str (length (h) /4) ]) ; l=eval([’l' num2str ( length (h) /4 )]) ; 

for k=l: length (c) , set <h ( (1 : 4 ) + (k-1) *4 ) , # Color ' , [ 1 1 1] * (ggg(l) +ggg(2) *c (k) ) , ... 

* LineWidth ' , 1 (k) ) ; end; 

axis ( [0 750 .9 1.5}) 

[hax, hli, hte) = slegend( ’mouse' ,h (4 : 4 : length ( h ) ) , ... 

str2mat (’ \times\10 { \ italic\ lambda} = 0.95', ... 

* \times\10 { \italic\ lambda} = 0.98', ... 

* \times\10{ \italic\ lambda} = 0.99')); 

sxlabel ( ' \ times time [secs}'}; sylabel ( 1 \ times frequency [ \ frac { rads }{ sec }]') ; 
fn = 1 04_f f_on_ptimm_siso_sdof_w' ; 

drawnow; pause; if (-scrn) , printsto ( ' -depsc ' , [ fn '.eps']); stfixps([fn '.eps'}); end; 
title ([ 'Effect of forgetting factor on piece-wise time -invariant SDOF SISO { * f n * ) ' } , ... 
' FontName ' f ' Times ') ; 

drawnow; if (scrn) , pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 


axisUO 750 .02 .12} ) 

sylabel ( ' \ times damping ratio ' ) ; 

fn = 1 04_f f__on_ptimm_siso_sdof_z ' ; 

drawnow; pause ; if ( -scrn) , printsto ( ' -dpsc ' , [ f n * . ps ' } ) ; stf ixps ( [ fn . ps } ) ; end; 
title ( w ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ',[ fn '.eps')); stfixps([fn 4 . eps ' ] ) ; 


end; 


% effect of ff on piece-wise time- invariant (increase mass) 
elf ( ’ reset ' ) ; 

h=rarx_test ( 'n' , 1 , ' dm' , ' -rem ( floor (t/(tf/3)),2)/2','ff',[.95 .98 .99]); 
c=eval ( [ ' c 1 num2str (length (h) /4) ]) ; l=eval<['l' num2str (length(h) /4) ] ) ; 
for k=l: length (c) , set (h( (1 :4) + (k-1) *4) , 'Color' , [1 1 U Mggg < 1 ) +ggg (2 ) *c <k) ) , ... 

* LineWidth' , 1 (k) ) ; end; 

axisUO 750 .75 1.1] ) 

[hax, hli , hte] = slegend{ 'mouse' , h (4 : 4 : length (h) ) , ... 

str2mat (' \times\10 { \italic\ lambda} = 0.95', ... 

' \times\ 10 { \italic\ lambda} = 0.98', ... 

' \times\10 { \ italic \ lambda} = 0.99')); 

sxlabel ( ‘ \ times time [secs]'); sylabel (' \ times frequency [ \frac {rads} (sec) ]') ; 
fn = ‘ 05_f f_on_ptimp_siso_sdof_w' ; 

drawnow; pause; if (-scrn), printsto (* -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
title ([ 'Effect of forgetting factor on piece-wise time- invariant SDOF SISO {' fn ... 

‘ FontName ' , ' Times ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn *.ps']); stf ixps ([fn '.ps']); end; 


% effect of ff on piece-wise time -invariant (decrease frequency) 
elf ( ' reset ' ) ; 

h=rarx_test ( ' n ' , 1 , ' dm ' , 0 , ' dk ' , ' rem ( floor (t/ (tf/3) ) ,2)/2', ' dc ' , ... 

* rem ( floor (t/(tf/3) ) ,2)* ( 1-sqrt (.5))','ff',(.95 .98 .99]); 
c=eval(['c' num2s tr ( length (h) /4 )]} ; l=eval(['l' num2str ( length (h) /4 )]) ; 
for k=l: length (c) , set (h( (1:4) + (k-1) *4) , 'Color' , [1 1 1] * (ggg (1) +ggg ( 2 ) *c (k) ) , ... 

'LineWidth' , 1 (k) ) ; end; 

axis ( [0 750 .6 1.1] ) 

[hax, hli , hte] = slegend{ 'mouse' ,h(4 :4 : length(h) ) , ... 

str2mat ( ' \ times \ 10 { \italic\lambda} = 0.95', ... 

' \times \10 { \ italic\ lambda} = 0.98', ... 

' \times\10{\italic\lambda} = 0.99')); 

sxlabel ('\times time [secs]'); sylabel (' \ times frequency [ \ frac { rads }{ sec }]') ; 
fn = ' 06_f f_on_ptiwm_siso„sdof_w' ; 

drawnow; pause; if (-scrn), printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps'])? end; 
title ([ 'Effect of forgetting factor on piece-wise time- invariant SDOF SISO (' fn ')'], ... 

' FontName Times ') ; 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn ’.ps']); stfixps([fn '.ps']); end; 
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rarx_test_run.m — Evaluating Several Two-Stage Adaptive Monitoring Examples (cont.) 


axis ( [0 750 .01 .11] ) 

sylabel (' \times damping ratio'); 

fn = ' 06_f f_on_ptiwm_siso_sdof_z ' ; 

drawnow; pause; if {-scrn), printsto (' -dpsc ',[ fn '.ps']); stfixps([fn ’.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn) , pause; else, printsto ( 1 -depsc ' , [ fn ’ . eps ' ] ) ; stfixps([fn '.eps']); end; 


% effect of ff on piece-wise time -invariant (increase frequency) 
elf { ' reset # ) ; 

h=rarx_test { 'n' , 1 , 'dm' , 0 , 'dk' , ' -rem (floor ( t/ { tf /3 ) ) , 2) ' , 'dc ' , ... 

' -rem ( floor ( t/ ( tf/3) ) , 2) * (sqrt (2)-l)','ff',[.95 .98 .99)); 
c=eval(['c' num2str ( length (h) /4 })) ; l=eval(['l' num2str ( length (h) /4 )]) ; 
for k=l : length (c) , set (h( (1 : 4) + (k-1) *4) , 'Color' , (1 1 1 ] * (ggg ( 1) +ggg (2 ) *c (k) ) , ... 

'LineWidth' , 1 (k) ) ; end; 

axis { [0 750 .9 1.5) } 

[hax, hli , hte] = slegend( 'mouse' ,h (4 : 4 : length (h) ) , ... 

str2mat (' \times\10 { \italic\ lambda) = 0.95', ... 

‘ \times\10 { \italic\ lambda) = 0.98', ... 

' \times\ 10 { \italic\ lambda) = 0.99')); 

sxlabel { ' \ times time [secs)'); sylabel (' \ times frequency [ \frac {rads) {sec} ]') ; 
fn = * 07_f f_on_ptiwp_siso_sdof__w' ; 

drawnow; pause; if (-scrn), printsto {' -depsc fn '.eps')); stfixps([fn '.eps']); end; 
title ([' Effect of forgetting factor on piece-wise time- invariant SDOF SISO (' fn ... 

' FontName * , ' Times ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps')); stfixps([fn '.ps']); end; 

axis ( [0 750 .02 .11] ) 

sylabel ( ' \times damping ratio' ) ; 

fn = ' 07_f f_on_ptiwp_siso_sdof_z ' ; 

drawnow; pause; if (-scrn), printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 


% effect of ff on piece-wise time- invariant (decrease damping) 
elf ( 'reset # ) ; 

h=rarx_test ( 'n' , 1 , 'dm' , 0 , ' dc ' , ' rem(f loor (t/ (tf/3)),2)/2','ff',[.95 .98 .99]); 

c=eval(['c' num2str ( length (h) /4 )]) ; l=eval(['l' num2str ( length (h) /4 ))) ; 

for k=l : length (c) , set (h ( (1 ; 4) + (k-1) *4) , 'Color ' , [1 1 1] * (ggg ( 1) +ggg (2 ) *c (k) ) , ... 

' LineWidth 1 (k) ) ; end; 

axis ( [ 0 750 .92 1.08] ) 

[hax, hli , hte] = slegend( 'mouse' ,h(4 :4 : length(h) ) , ... 

str2mat ( ' \times\10{ \italic\ lambda) = 0.95', ... 

' \times\10 { \italic\lcunbda) = 0.98', ... 

' \times\10 { \italic\ lambda) = 0.99')); 

sxlabel (' \ times time [secs]'); sylabel (' \ times frequency [ \frac (rads) (sec) ]') ; 
fn = ' 08_f f_on__ptizm_siso_sdof_w' ; 

drawnow; pause; if (-scrn), printsto { ‘ -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
title ([' Effect of forgetting factor on piece-wise time -invariant SDOF SISO (' fn ’)'], ... 

' FontName ' , ' Times ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

axis ( [0 750 .00 .1]) 

sylabel ( '\ times damping ratio' ) ; 

fn = ' 08_f f_on__ptizm_siso_sdof_z ' ; 

drawnow; pause; if (-scrn), printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
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rarx_test_run.m — Evaluating Several Two-Stage Adaptive Monitoring Examples (cont.) 


% effect of ff on piece-wise time-invariant (increase damping) 
elf ( ' reset ' ) ; 

h=rarx_test { ‘n' , 1, 'dm' , 0, 'dc' # ' -rem ( floor ( t/ (tf/3)),2)/2','ff',[.95 .98 .99]); 

c=eval(['c' num2s tr ( length (h) /4 )]) ; l=eval(['l' num2str ( length (h) /4 )]) ; 

for k=l: length (c) , set (h ( (1 : 4 ) + (k-1) *4) , 'Color ' , [1 1 1] * (ggg < 1 > +ggg ( 2 ) *c (k) ) , ... 

'LineWidth' , 1 (k) ) ; end; 

axis ( [0 750 .92 1.08] ) 

[hax, hli, hte] = slegend ( 'mouse' , h (4 : 4 : length (h) ) , ... 

str2mat { 4 \times\10 { \italic\lambda) = 0.95', ... 

* \times\ 10 { \italic\ lambda) = 0.98', ... 

1 \times\ 10 { \italic\ lambda) = 0.99')); 

sxlabel { ' \ times time [secs]'); sy label (' \ times frequency [ \frac { rads ) (sec) ]') ; 
fn = ' 09_f f_on_ptizp_siso_sdof_w' ; 

drawnow; pause; if (-scrn) , printsto (' -depsc ',[ fn '.eps']); stfixps([fn ' . eps']); end; 
title ( [ 'Effect of forgetting factor on piece-wise time- invariant SDOF SISO (' fn ')'], ... 

4 FontName ' , ' Times ' ) ; 

drawnow; if (scrn) , pause; else, printsto ( 4 -dpsc ',[ fn '.ps']); stfixps([fn *.ps']) ; end; 

axis ( [ 0 750 .02 .13] ) 

sylabel { 4 \ times damping ratio ' ) ; 

fn = * 09_f f_on_ptizp_siso_sdof_z ' ; 

drawnow; pause; if (~scrn) , printsto ( * -dpsc ' , [ fn '.ps']); stfixps([fn '.ps']); end; 
title ( w ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 


% effect of ff on continuously time-varying (mass varies) 
elf ( ' reset ' ) ; 

h=rarx_test ('n',l,'ff', [.95 .98 . 99] , ' tf ' , 2250, ... 

'dm' , ' 1-1 . / (1+ (t>=(tf/3) ) . *sin ( (t/ (tf/3) -1) *pi) * (sqrt (2) -1) ) . A 2 ' ) ; 
c=eval ( [ ' c ' num2str (length (h) /4) ]) ; l=eval(['l' num2str (length (h) /4 )]) ; 
for k=l; length (c) , set (h ( (1 : 4) + (k-1) *4) , ' Color ' , [ 1 1 1] * (ggg ( 1) +ggg (2 ) *c (k) ) , ... 

’LineWidth' , 1 (k) ) ; end; 

axis ( [0 2250 .5 1.5] ) 

[hax, hli , hte] = slegend { 'mouse h (4 : 4 : length (h) ) , ... 

str2mat ( ' \times\10 { \ italic Nlambda) = 0.95', ... 

* \times\10 { \italic\ lambda) = 0.98', ... 

' \times\ 10 { \italic\ lambda) = 0.99')); 

sxlabel (' \ times time [secs]'); sylabel (' \times frequency [ \frac (rads) {sec) ]') ; 
fn = ' 10_f f_on_tvm_siso_sdof_w' ; 

drawnow; pause; if (-scrn), printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
title ([' Effect of forgetting factor on continuously time-varying SDOF SISO {' fn ')'], ... 

' FontName ' , ' Times ' ) ; 

drawnow; if (scrn), pause; else, printsto (’ -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

axis ( [0 2250 .02 .12] ) 

sylabel {' \times damping ratio'); 

fn = 4 10_f f_on_tvm_siso_sdof_z ' ; 

drawnow; pause; if (-scrn), printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 


% effect of f f on continuously time-varying (mass varies) , accel output 
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rarx_test_run.m — Evaluating Several Two-Stage Adaptive Monitoring Examples (cont.) 


elf ( ' reset ' ) ; 

h=rarx_test { 'n' , 1 , ' f f ' , [ . 95 .98 . 99 ],' tf ', 2250 , ' outtype ' , 'acceleration' , ... 

’dm', '1-1./ (l+(t>= (tf/3) ) . *sin ( ( t/ < tf /3 ) -1) *pi ) * ( sqrt (2 ) -1 ) ). A 2'); 
c=eval([’c' num2str (length (h) / 4 ) 3 ) ; l=eval([’l' nuin2str ( length (h) /4) 3 ) ; 
for k=l : length (c) , set (h ( (1:4) + (k-1) *4) , 'Color ' , [1 1 1] * (ggg(l) +ggg(2) *c (k) ) , ... 

’LineWidth' , 1 (k) ) ; end; 

axis ( [0 2250 .9 1.5] ) 

[hax, hli , hte] = slegend ( 'mouse h (4 : 4 : length (h) ) , ... 

str2mat ( 1 \times\ 10 { \italic\ lambda) = 0.95', ... 

' \times\10 { \italic\ lambda) = 0.90', ... 

’ \times\10{ \italic\ lambda) = 0.99')); 

sxlabel ( ’ \ times time [secs]'); sylabel {’ \ times frequency [ \frac {rads} {sec) ]') ; 
fn = ' ll_f f_on_tvma_siso_sdof_w' ; 

drawnow; pause; if (-scrn) , printsto ( 1 -depsc ' , [ fn ’ . eps ' ] ) ; stfixps([fn ’ . eps ' ] ) ; end; 
title { [ 'Effect of ff on continuously time-varying SDOF SISO { ’ fn ’ ) ' ) , 'FontName' , 'Times' ) ; 
drawnow; if (scrn), pause; else, printsto (* -dpsc ',[ fn * .ps']); stfixps([fn '.ps']); end; 

axis! [0 2250 .02 .12] ) 

sylabel (' \times damping ratio'); 

fn = ' ll_f f_on_tvma_siso_sdof_z ' ; 

drawnow; pause; if (-scrn), printsto (’ -dpsc ',[ fn '.ps']); stfixps((fn ’.ps'])? end; 
title ( ’ ' ) ; 

drawnow; if (scrn), pause? else, printsto (’ -depsc ',[ fn ‘.eps']); stfixps([fn ’.eps']); end; 


% effect of ff on continuously time-varying (damping varies) 
elf { 'reset ' ) ; 

h=rarx_test{ ‘n',1, 'ff ' , [ .95 .98 . 99] , 'tf ' ,2250, ... 

'dc' , ' - ( t>= (tf/3) ) . *sin ( (t/ ( tf /3 ) -1 ) *pi ) /2 ' ) ; 
c=eval([‘c' num2str (length (h) /4) ]) ; l=eval([’l' num2str ( length { h) /4) ]) ; 
for k=l : length { c ) , set <h( (1:4) + (k-1) *4) , 'Color' , [1 1 1] * (ggg(l) +ggg(2) *c (k) ) , ... 

‘LineWidth' , 1 (k) ) ; end; 

axis ( [0 2250 .95 1.05] ) 

[hax, hli , hte] = slegend ( ’mouse' , h(4 : 4 : length (h) ) , ... 

str2mat ( ’ \ times\10{ \italic\ lambda) = 0.95', ... 

1 \ times\10 { \italic\ lambda) = 0.98', ... 

‘ \times\ 10 {\italic\ lambda) = 0.99')); 

sxlabel (’ \ times time [secs]'); sylabel (’ \ times frequency [ \frac{rads) {sec} ] ' ) ; 
fn = ' 12_f f_on_tvz_siso_sdof_w' ; 

drawnow; pause; if (-scrn), printsto { * -depsc ',[ fn '.eps']); stfixps([fn ’.eps']); end; 
title ([ ’Effect of forgetting factor on continuously time-varying SDOF SISO (’ fn ’)'], ... 

’FontName' , 'Times' ) ; 

drawnow; if (scrn), pause; else, printsto (’ -dpsc ',[ fn ’.ps']); stfixps([fn ’.ps']); end; 

axis ( [0 2250 .00 .12]) 

sylabel ( ’ \ times damping ratio' ) ; 

fn = ' 12_f f_on_tvz_siso_sdof_z ' ; 

drawnow; pause; if (-scrn), printsto {’ -dpsc ',[ fn ’.ps']); stfixps([fn ’.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc fn ’.eps']); stfixps([fn '.eps']); end; 


%%%%%%%%%%%%%%% 
% % 

% 2 DOF MISO % 

% % 

%%%%%%%%%%%%%%% 
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rarx_test_run.m — Evaluating Several Two-Stage Adaptive Monitoring Examples (cont.) 


% piecewise time- invariant problem {mass increases) 
elf { 'reset' ) ; 

h=rarx_test { ' n * , 2 , ' noisemag ' , 5e-3 , * dm' , ' rem { floor (t/(tf/3)),2)/2','ff',[.95 .98 .99]); 
set <h, 'Color' , [1 1 1]); 
axis ( [0 750 .4 1.8] ) 

sxlabel ( '\ times time [secs]'); sylabel { * \ times frequency [\f rac{ rads Msec) ] ' ) ; 

fn = ' 22_tv_miso_2dof_w' ; 

set (h ( [3 : 4 7 : 8] ) , 'Visible' , 'of f ' ) ; 

drawnow? pause; if (~scrn) , printsto { ' -depsc ' , [ f n * . eps ' ] ) ; stfixps([fn * . eps ' ] ) ; end; 

title {[’ Piece-wise time- invariant 2DOF SISO (' fn ')'],' FontName Times ') ; 

drawnow; if (scrn), pause; else, printsto {' -dpsc ' , [ fn '.ps']); stfixps([fn '.ps']); end; 

axis ( [0 750 0 .12] ) 

sylabel (' \times damping ratio'); 

set (h, 'Visible '/on'); 

set (h ( (1:2 5:6]), 'Visible' , 'off ' ) ; 

fn = ' 22_tv_miso_2dof_z ' ; 

drawnow; pause; if (-scrn), printsto (' -dpsc fn '.ps']); stfixps([fn '.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ' , [ fn '.eps']); stfixps{[fn '.eps']); end; 

axis ( [0 750 .02 .1] ) 

fn = ' 22_tv_miso_2dof_z2 ' ; 

drawnow; pause; if (-scrn), printsto (' -depsc fn '.eps']); stfixps{[fn '.eps']); end; 

title ([' Piece-wise time- invariant 2DOF SISO (' fn ')'],' FontName ', 'Times ') ; 

drawnow; if ( scrn) , pause; else, printsto { * -dpsc ' , [ f n 1 .ps ' ] ) ; stf ixps { [ fn ' . ps ] ) ; end; 


%%%%%%%%%%%%%%% 
% % 

% 6 DOF MISO % 

% % 

%%%%%%%%%%%%%%% 


% time- invariant problem 
elf ( * reset ' ) ; 

h=rarx_test ( *n' , 6 , ' noisemag ' , 3e-6 , 'ni ' , 6 , 'dm' , 0 , ' f f ' , .99); 
co=get (gca, 'ColorOrder' ) ; 1= . 5* ( 1+rem ( 1 : length (co) ,2) ) ; 

for k=l : length (h) , set (h(k) , 'Color' , co ( 1+rem (k-1 , size (co, 1) ),:), 'LineWidth' , 1 (k) } ; end; 
axis ( [0 750 0 2.2]) 

set (h ( [7:12 19:24] ) , 'Visible', 'off') ; 

sxlabel (' \ times time [secs]'); sylabel (’ \ times frequency [\frac{rads> {sec) ) ' ) ? 
fn = * 13_ti_miso_mdof_w ' ; 

drawnow; pause; if (—scrn) , printsto ( ' -depsc ' , [ fn 1 . eps ' ] ) ; stf ixps ( [ fn ' . eps ] ) ; end; 
title {[ ‘Effect of forgetting factor on time-invariant MDOF MISO (' fn ')'], ... 

v FontNeime Times ') ; 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixpsUfn '.ps']); end; 

set (h, 'Visible '/on')? 

set (h( [1:6 13:18]), 'Visible' , 'off ' } ; 

axis { [0 750 0 .11]); 

sylabel {' \times damping ratio'); 

fn = ' 13_ti_miso_mdof_z ' ; 

drawnow; pause; if (-scrn), printsto (’ -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto ( ‘ -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 


% piecewise time-invariant problem 
elf ( * reset ' ) ; 
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rarx_test_run.m — Evaluating Several Two-Stage Adaptive Monitoring Examples (cont.) 

h=rarx_test ('n',6,'tf',2250, 'noisemag' , 3e-6 , 'ni ' , 6 , ... 

’dm', ' rem( floor (t/ <tf/3)),2)/2', 'ff', .99); 
co=get (gca, ' ColorOrder ' ) ; 1= . 5* ( 1+rem (1 : length (co) , 2 ) ) ; 

for k=l : length (h) , set (h(k) , 'Color co (l+rem(k-l , size (co, 1) 'LineWidth' , 1 (k) ) ; end; 
axis( [0 2125 0 3] ) 

set (h ( [7:12 19:24]) , 'Visible* , 'off * ) ; 

sxlabel ( ' \times time [secs]'); sylabel { ' \ times frequency [ \frac{rads) {sec} ] ' ) ; 
fn = ' 22_pti_miso_mdof_w' ; 

drawnow; pause; if {-scrn) , printsto ( ' -depsc ' , [ fn * . eps ' ] } ; stfixps([fn '.eps']); end; 
title ([' Effect of forgetting factor on time -invariant MDOF MISO (' fn ')'], ... 

' FontName ' , ' Times ' ) ; 

drawnow; if (scrn) , pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

set (h, 'Visible ' , ' on ' ) ; 

set (h( [1:6 13:18]), ' Visible of f ') ; 

axis { [0 2125 0 .13] ) ; 

sylabel {' \times damping ratio'); 

fn = * 22_pti_miso_mdof_z ' ; 

drawnow; pause; if {-scrn), printsto (' -dpsc ',[ fn '.ps']); stfixps{[fn '.ps']); end; 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ',[ fn '.eps']); stfixps([fn ’.eps']); end; 

% check modal responses 
elf ( 'reset ' ) ; 

dt= . 6 ; tf =2250 ; t= (0 : round ( tf/dt) -1 ).' *dt ? n=6; 

[x,p] = rarx_test ( 'n' ,n, ' tf' , 2250, 'dt' ,. 6, 'noisemag' , 3e-6, 'ni' ,n, ... 

'modalresponse' , ' ceil (tf/dt/ 10) ' , ... 

'dm' , ' rem{ floor (t/ (tf/3) ) , 2 ) /2 ' , ' f f ' , . 99 ) ; 

nt = size (x, 1 ) ; 

h=plot { <0 : nt-1) *dt , x ( : , 1 : 2 : 2 *n) ) ; 

co=get (gca, ' ColorOrder ' ) ; 1= . 5* ( 1+rem ( 1 : length (co) , 2 ) ) ; 

for k=l : length (h) , set (h(k) , 'Color' , co (l+rem(k-l, size(co, 1) ),:), 'LineWidth' , 1 (k) ) ; end; 
set (gca, 'XLim' , [0 tf]}; 

sxlabel ( ‘ \times time [secs]'); sylabel (' \times modal response'); 
fn = ['23_' num2str(n) ' dof_modalresp' ] ; 

drawnow; pause; if (-scrn), printsto (' -depsc ' # [ fn '.eps']); stfixps([fn '.eps']); end; 
title ([ ’Modal response of piecewise time- invariant ’ num2str(n) ... 

* DOF MISO (' fn ')'},' FontName Times ') ; 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixps([fn '.ps']); end; 

% rms of modal responses 
elf ( 'reset ' ) ; 

xrms = sqrt ( sum (x ( : , 1 : 2 : 2*n) . A 2 ) /nt ) ' ; 
h=semilogy ( 1 : n, xrms , 'w- ' , l:n,xrms, 'w-' ) ; 
set (gca, 'XTick' , (1 :n) ' , 'XLim' , [1 n] ) ; 

sxlabel ( ' \ times mode number' ) ; sylabel { * \ times modal response RMS' ) ; 
fn = [ ' 2 4 ' num2str(n) ' dof_modalresp_3rms ' ] ; 

drawnow; pause; if (-scrn), printsto (' -depsc ',[ fn '.eps']); stfixps([fn '.eps']); end; 
title([‘RMS of modal responses of piecewise time- invariant ‘ num2str(n) ... 

'DOF MISO (' fn ')'],' FontName ',' Times ') ; 

drawnow; if (scrn), pause; else, printsto (' -dpsc ',[ fn '.ps']); stfixpsUfn '.ps']); end; 


% continuously time-varying problem (mass) 

% Note: On limited -memory platforms (e.g., PC or Mac), the following actually 

% must be done in segments since the call to RARX takes too much memory. 

% See RARX_PIECEWISE for details on how that may be done. 

elf ( ' reset ' ) ; 

h=rarx_test (‘n',6, 'tf',2250, 'noisemag' , le-6, 'ni',6,'ff',.99, ... 
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rarx_test_run.m — Evaluating Several Two-Stage Adaptive Monitoring Examples (cont.) 


'dm' , ' 1-1 . / (1+ (t>= ( t f / 3 ) ) .*sin( (t/ ( tf / 3 ) -1) *pi) * (sqrt (2) -1) ) - A 2') ; 
co=get (gca, 'ColorOrder' ) ; 

for k=l: length (h) , set (h (k) , ' Color ' , co ( 1+rem (k-1 , size (co, 1 )),:)) ; end; 
axis ( [0 750 0 2.2] ) 

set (h( [7:12 19:24]), 'Visible ' , 'off ' ) ; 

sxlabel ( * \ times time [secs]'); sy label {' \times frequency [\frac{rads> {sec} ] ' ) ; 
fn = ' 14_ti_miso_mdof_w' ; 

drawnow; pause; if (-scrn) , printsto ( ' -depsc * , [ fn '.eps']); stfixps([fn ‘ . eps ' ] ) ; end; 
title ([ 'Effect of forgetting factor on time-varying MDOF MISO (’ fn ')'], ... 

' FontName * , ' Times ' ) ; 

drawnow; if (scrn), pause; else, printsto (’ -dpsc ',[ fn '.ps']); stfixps{[fn '.ps']); end; 


set (h, 'Visible ' , ' on ' ) ; 

set (h( [1:6 13:18]), 'Visible' , 'off ' ) ; 

axis ( [0 750 0 .11] ) ; 

sy label (' \times damping ratio'); 

fn = ' 14_ti_miso_mdof_z ' ; 

drawnow; pause; if (-scrn), printsto (' -dpsc ',[ fn 
title ( ' ' ) ; 

drawnow; if (scrn), pause; else, printsto (' -depsc ' 


.ps']); stfixps([fn '.ps']) 
, [fn '.eps']); stfixps([fn 


end; 

eps ' ] ) ; end; 
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8.4.3 thm2rts .m — Convert rarx Identified Model to Modal Characteristics 


thm2rts converts the identification model output by rarx to natural frequencies and 
damping ratios. 

function [r,w,z] = thm2rts ( thm, n, dt , dosort } 

% THM2RTS compute roots (& freq. /damping) from recursive SysID THM matrix. 

% 

% [R,W,Z) = THM2RTS (THM, N, T) returns the continuous -time roots R, 

% and modal frequencies (W) and damping ratios (Z) , for 

% the THM matrix returned by the recursive system 

% identification functions, where N is the order of the 

% system (= # of resulting roots = # of cols of THM used) . 

% 

% If THM is M-by- (N+K) , then R is M-by-N, and W and Z are 

% M-by-ceil (N/2 ) , where pairs of overdamped roots show up as 

% NaN's in W and Z. 

% 

% T is the sampling period. 

% 

% [R,W,Z] = THM2RTS (R) uses the given continuous-time roots to compute 

% modal frequencies and damping ratios. 

% 

% [R, W, Z] = THM2RTS (...,' sort ' ) will sort R, W, and Z by frequency at 

% each time step. 

% 

% See also RARX, RARMAX, etc. 

% Copyright (c)1996, Erik A. Johnson <johnsone@uiuc.edu>, 6/3/96 
% added sorting, 6/8/96 

% check args 

if (nargin<l) , error { 'THM2 RTS requires at least 1 input argument.'); end; 
if (nargin>4) , error ( 'THM2RTS takes at most 4 input arguments.'); end; 

% do the work 
if (nargin <= 2 ) , 

% we have the roots 
r = thm; 

if (nargin==2), dosort=n? else, dosort=U; end; 

[m, n] = size (r ) ; 
rr = r . ' ; 
else, 

% find the roots 
m = size { thm, 1 ) ; 
r = zeros (n,m) ; 
for k=l:m, 

r(:,k) = roots{[l thm(k, 1 :n) ] ) ; 

end; 

% convert to continuous time 
r = log (r ) /dt ; 
rr = r ; 
r = r . ' ; 

if {nargin==3) , dosort= [ ) ; end; 

end; 

% sort roots into complex pairs and real values 
if {any (imag(rr ( : ) ) ==0) ) , 

[junk,ii] = sort (-abs (imag(rr) ) ) ; 
ii = ii + n*ones (n, 1) * (0 :m-l) ; 
rr ( : ) = rr(ii(:)); 

rr ( imag (rr ) ==0 ) = rr ( imag (rr ) ==0 ) * NaN; 

end; 

rr = rr . ' ; 

% compute fequency and damping 

if (rem(n,2)), rr=[rr NaN*ones (m, 1 ) ] ; n=n+l; end; 
w = real (sqrt (rr ( : , 1 : 2 : n) . *rr { : , 2 : 2 :n) ) ) ; 
z = -real (rr ( : , 1 ; 2 : n) +rr { : , 2 : 2 :n) ) /2 . /w; 
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thm2rts.m — Convert rarx Identified Model to Modal Characteristics (cont.) 


% sort them 

if isempty (dosort) , dosort=0; end; 
if ( (isstr (dosort ) | any (dosort } ) & {n>2}), 
[w, ii] = sort (w. ' ) ; 
z = z . ' i 

ii = ii + n/2*ones (n/2, 1) * (0:m-l) ; 
z ( : ) = z (ii) ; 
w = w . ' ; 
z = z . ' ; 

end; 
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8.4.4 ss2modal .m — Convert General State-Space System to Modal State-Space 

This function converts a general state-space system to a modal state-space system whose 
states are modal displacement and velocities for continuous- or discrete-time systems. 

function [a,b,c, tm, p] =ss2modal (a,b,c, t,dosort) 

% SS2MODAL Convert general state-space system to modal state-space. 

% 

% [Am,Bm,Cm] = SS2MODAL (A, B, C) converts the given general, continuous- time, 

% state-space system to modal state coordinates. 

% 

% [Am, Bm, Cm, Tm] = SS2M0DAL (A, B, C) also returns the similarity transformation 
% matrix Tm used in the conversion 

% (if the old states are X and the new 

% modal states are Q, then X=Tm*Q, 

% Am=inv (Tm) *A*Tm, Bm=inv (Tm) *B, C=C*Tm) . 

% 

% [Am, Bm, Cm, Tm, P] = SS2MODAL (A, B, C) also returns the number of underdamped 
% eigenvalue pairs in P. 

% 

% SS2MODAL (A, B, C, T) performs the same operations for a discrete-time system 
% with sample time T. An empty T implies continuous -time . 

% 

% SS2M0DAL(A, B,C, T, 'sort ' ) rearranges the states such that the underdamped 
% modes (those with complex eigenvalue pairs) are 

% grouped first by increasing frequency, then the 

% over -damped modes. 

% 

% Note that the output of SS2 MODAL uses the modal coordinates and their 
% derivatives as the states, whereas the CANON (..., 'modal ' ) uses some 
% transformation of the states of SS 2 MODAL . 

% 

% See also CDF2RDF, CANON. 

% Copyright <c)1996, Erik A. Johnson < johnsone@uiuc . edu>, 4/10/96 
% handle the inputs and outputs 

if (nargin<l) , error (’ SS2MODAL requires at least 1 argument, the A matrix.'); 
elseif (nargin>5) , error (' SS2MODAL takes at most 5 arguments.'); 
elseif <nargout>5) , error ( v SS2MODAL returns at most 5 outputs.'); 
elseif ( (nargin<3 ) & (nargout>nargin) ) r 

error (' SS2MODAL cannot convert matrices not supplied.'); 
elseif (nargin==l) , error (abcdchk (a) ) ; 
elseif (nargin==2), error (abcdchk (a, b) ) ; 
else, error (abcdchk (a , b, c) ) ; 
end; 

% handle default values 
if (nargin<4) , t= [ ) ; end; 

if (nargin<5) , dosort= [ ] ; end; if ( isempty (dosort ) ) , dosort=0 ; end; 

% solve eigensystem 
[ Phi , D ] =eig(a) ; 

D=diag (D) ; 
n=length (D) ; 

% handle complex eigenvalues (eig() leaves them in pairs next to each other) 
complexlist= ( imag ( D) ~=0 ) ; 

ii=find(rem(cumsum(complexlist) . * (complexlist ) , 2) ==1) ; 
p = length ( ii ); 

% convert discrete-time eigenvalues to corresponding continuous time 
if (-isempty ( t) ) , 

Dmask = (D==0 ) ; 

D(Dmask) = D(Dmask) - inf; 

D(-Dmask) = log (D{ -Dmask) ) /t; 

end; 

% compute the similarity transformation matrix 
if (P>0), 

z00=ones (n, 1) ; zOO ( ii ) =-D ( ii+1 ) ; 
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ss2modal.m — Convert General State-Space System to Modal State-Space (cont.) 


zml= zeros (n-1, 1) ; zml (ii) =-D(ii) ; 

zpl=zeros (n-1, 1) ; zpl (ii) =ones (length(ii) , 1) ; 

Z = diag(zOO) + diag(zml,-l) + diag(zpl / l); 
else, % no transformation 
Z = eye (n) ; 

end; 

% combine with eigenmatrix 
tm=real (Phi*Z) ; 
rcond(tm) ; 
invtm=inv{ tm) ; 

% sort by increasing frequency 
if (dosort & p>0), 

[junk, j j ] =sort (real (D(ii) . # D(ii+l) ) ) ; 

j j= [ii { j j ) ii ( j j ) +1] - ' ; j j= [ j j ( : ) ; f ind(-complexlist) ) ; 
tm = tm ( : , j j ) ; 
invtm = invtm ( j j , : ) ; 

end; 

% compute them 
a=invtm*a*tm; 
if (nargout>l) , 
b= invtm* b; 
if (nargout>2), 
c=c*tm; 

end; 

end; 
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8.4.5 rarxjcf .m — On-line Monitoring via a Kalman Filter 

rarx_kf uses the results of an rarx identification and the input/output data to compute 
modal displacements and velocities. An entire time history is computed here at once, but that is 
merely for convenience; in a real-world system, this would run on-line in parallel with the identi- 
fication routine. 

function [xhat , p,yhat] = rarx_kf ( z , nn, thm, T, howof ten, nvar , yhat , xhatO , phatO ) 

% RARX_KF Compute modal responses from RARX model using Kalman filter. 

% 

% [XM,P,YHAT2] = RARX_KF([Y U] , NN, THM, T, HOWOFTEN, NVAR, YHAT, XHATO , PHATO ) 

% 

% uses a Kalman filter toestimate modal responses of the system 

% with inputs U, output Y, and RARX -estimated system matrices THM. 

% Note that like RARX, this only handles single-output systems; 

% thus Y is a column vector. 

% 

% NN is the same matrix passed to RARX that specifies the orders 

% and delay [na nb nk] of the ARX model. {Since this is single- 

% output, NN must be a row vector.) 

% 

% T is the sampling time. 

% 

% HOWOFTEN (optional) is a scalar integer that specifies the 

% number of time steps between updating the (A,B,C,D) model of the 

% system, used by the Kalman filter, from the THM argument. If 

% empty or not supplied, its value is one (i.e., update every time 

% step) . 

% 

% NVAR (optional) is the noise variance. It is assumed to be unity 

% if empty or not supplied. A constant variance may be specified 

% with a scalar NVAR. 

% 

% YHAT (optional) is an estimate of the system output, generally 

% that returned by RARX. If YHAT is empty or not supplied, then Y 

% is used instead. 

% 

% XHATO (optional) and PHATO (optional) are the initial state and 

% state covariances, respectively. If empty or not supplied, they 

% default to zero. 

% 

% The inputs Y, U, THM, (if supplied) NVAR, and (if supplied) YHAT 

% should all have the same number of rows, and YHAT (if supplied) 

% should be the same size as Y. 

% 

% The output XM will have the same number of rows as Y and one 

% column per state. The first 2*P columns are true modes (complex 

% eigenvalues) (displacement first, then velocity) , sorted by 

% increasing frequency. 

% 

% The output YHAT 2 is the same size as Y and is the estimate of 

% the system output with no noise. 

% 

% See also RARX, ARX, RARX_TEST . 

% Copyright (c)1996, Erik A. Johnson < j ohnsone@uiuc . edu>, 7/8/96 
% check # of arguments 

if (nargin<3), error {’ RARX_KF requires at least 3 input arguments.'); 
elseif (nargin>9), error (' RARX_KF takes at most 9 input arguments . # ) ; 
elseif (nargout>4), error { 'RARX_KF produces at most 4 outputs.'); 
end; 

% check argument sizes 
no = 1 ; 

[nt,ni] = size (z) ; 
ni = ni-no; 

[nl,nthm] = size(thm); 
if (nargin<4), T= [ ] ; end; 

if { isempty (T) ) , T=l; else, T=abs(T(;)); end; 
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rarx_kf.m — On-line Monitoring via a Kalman Filter (cont.) 


if (nargin<5) , howoften=[]; end; 

if (isempty (howof ten) ) , howoften=l; else, howof ten=max ( 1 # round(howof ten(l) ) ) ; end; 
if (nargin<6) , nvar= [ 3 ; end? 
if (isempty (nvar) ) , nvar=l; end; 
if (all {size (nvar) >1) } , 

error (' RARX_KF requires that NVAR be a column vector or scalar.'); 

end; 

if { length (nvar ) ==1) , nvar=nvar*ones <nt, 1 ) ; else, nvar=nvar ( : ) ; end; 
if (nargin<7), yhat= [ 3 ; end; 
if (isempty (yhat) ) , 
n2 = nt ; 
else, 

[n2,nyhatj = size (yhat); 
if (no~=nyhat) , 

error (' RARX_KF requires that YHAT be empty or the same size as Y.'); 

end; 

end; 

if any (nt-= Ini n2 length (nvar) 3 ) , 

error { * RARX_KF requires that [Y UJ , THM, and YHAT have the same number of rows.') 

end; 

if (nargin<8) , xhatO= [ 3 ; end; 
if (nargin<9) , phatO= [ ) ; end; 

% check order sizes 
if (size (nn, 1) ~=no) , 

error { ' RARX__KF requires that NN have the same # of rows as Y has columns.'); 

end; 

if (size (nn, 2) -no~=2*ni) , 

error { 1 RARX_KF requires that NN have 2M#cols of u)+(#cols of y) columns.'); 

end; 

% preparation to get models 

na=nn ( 1 ) ; nb=nn (2 : 1+ni ) ; nk=nn (2+ni : 1+2 *ni) ; 
if any(nk<0), 

error (' RARX_KF cannot deal with non-causal systems (i.e., nk<0) . ' ) ; 

end; 

n = max (na, max (nb+nk) -1) ; 

haved = nb>0 & nk==0; 

nbi = nb - haved; 

bk = (l:max(nbi) ) ' ; 

bk = bk ( : , ones ( 1 , ni ) ) ; 

bj = n*(0:ni-l) + nk + (nk==0) - 1? 

bj = bk + bj (ones (max (nbi) , 1) ; 

nbii = nbi (ones (max (nbi) , 1) ,:) ; 

bi = bj (bk ( : ) <=nbii ( : ) ) ; 

Dj = [zeros (1 , min (ni , 1) ) cumsum(nb(l : length (nb) -1) ) J + na; 

Bj = Dj + haved; 

Bj = bk + Bj (ones (max (nbi) , 1) ,:) ; 

Bi = Bj (bk( : ) <=nbii ( : ) ) ; 

di = find (haved) ; 

Di = Dj (haved) + 1; 


% get the first system model in observer canonical form 
k = 1; 

a = diag(ones (n~l, 1) , 1) ; 
a(l:na,l) = -thm(k, 1 :na) . ' ; 
b = zeros (n, ni ) ; 

if all ( size (bi )) , b (bi) =thm(k, Bi) ; end; 
c = [1 zeros ( 1 , n- 1 ) ) ; 

d = zeros (l,ni) ; 
if all (size (di) ) , 

d{di) =thm(k, Di) ; 
b = b + a ( : ,1) *d; 

end; 

%%%%% [a, b,c, d] = minreal (a, b, c, d) ; 

[a , b, c , tm, pi 3 =ss2modal (a,b,c,T, 'dosort' ) ; 
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rarx_kf.m — On-line Monitoring via a Kalman Filter (cont.) 


% create some space 

if (-isempty (yhat) ) , y=yhat { : ) ; else, y=z(:,l:no); end; 
u = z ( : , no+ { 1 ; ni ) ) ? 
yhat = zeros (nt, no) ; 
xhat = zeros(nt,n) ; 
p = zeros (nt, 1) ; 

P(l) = pi; 

% handle initial conditions 
if (-isempty (xhatO) ) , 

if (prod (size (xhatO) ) ~=n) , 

error (' RARX_KF requires that XHATO be a column vector of length NN(1).'); 

end; 

xhat ( 1 , : ) = xhatO ( : ) . ' ; 

end; 

if (-isempty (phatO) ) , 

if (any (size (phatO) -=n) ) , 

error (’ RARX_KF requires that XHATO be a NN ( 1) -by-NN(l) matrix.'); 

end? 

phat = phatO; 
else, 

phat = zeros (n); 

end; 

% loop over the times 
for k=2:nt, 

xbar = a*xhat (k-1 , : ) . ' ♦ b*u (k-1, : ) . ' ? 
pbar = a*phat*a.'; 
if (rem(k-l , howof ten) ==0) , 

% update the KF model 
a = diag(ones(n-l,l),l); 
a ( 1 : na , 1 ) = - thm ( k , 1 : na ) . ' ; 
b = zeros (n, ni ) ; 

if all (size (bi) ) , b (bi) =thm (k, Bi) ; end; 
c = [1 zeros ( 1 , n-1 )) ; 
d = zeros ( 1 # ni) ; 
if all (size (di) ) , 

d (di ) =thm(k, Di ) ? 
b = b + a { : , 1 ) *d; 

end; 

%%%%%[a / b,c,d] = minreal (a, b, c, d) ; 

[a, b, c, tm, pi ] =ss2modal (a, b, c, T, ' dosort ' ) ; 

end; 

g = pbar*c . ' / (c*pbar*c . '+nvar (k) ) ; 
phat = (eye (n) -g*c) *pbar ; 

xhat (k, : ) = ( (eye (n) -g*c) *xbar-g*d*u (k, +g*y (k, :).').' ; 

yhat(k,:) = (c*xhat (k, : ) . ' +d*u(k, : ) . ' ) ; 
p (k) = pi; 

end? 
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8.4.6 rarx piecewise .m — RARX Identification in Segments 

rarx piecewise calls rarx to do identification of a segment its data. This is useful for 
doing simulation of systems over a longer time period on limited memory platforms. Where 
memory use is not an issue, or the time sequence is short, use rarx instead. 

function [ thm,yhat , P, Phi] = rarx_piecewise {tmax, z , nn, adm, adg, thmO , PO , PhiO) 

% RARX_PIECEWISE Do RARX identification in segments. 

% 

% RARX_PIECEWISE (TMAX, Z,NN, ADM, ADG, . . . ) does the same thing as RARX 

% except in segments over time. 

% This is convenient for platforms (e.g. PC or Mac) where 

% memory is limited. TMAX is the amount of time (in seconds) 

% between updates of the 'waitbar' put on the screen while 

% it is running. 

% 

% The outputs and the remaining inputs are identical to 

% those of RARX. 

% 

% See also RARX. 

% Copyright (c)1996, Erik A. Johnson <johnsone@uiuc . edu>, 7/8/96 
% check # of arguments. 

if (nargin<5) , error < 'RARX_PIECEWISE requires at least 5 input arguments.'); end; 
if isempty ( tmax) , tmax=10; end; 

% check sizes and handle degenerate case 
nt = size (z , 1) ; 

if (nt==0) , thm= ( ] ; yhat= [ ] ; P= [ ] ; Phi= [ J ; return; end; 


% do the first segments 

h = waitbar (0, ' Please wait...'); 

tO=cputime; 

if (nargin==5) , [ thml , yhatl , P, Phi ] 

elseif (nargin==6) , ( thml , yhatl , P, Phi ] 

elseif (nargin==7), [thml, yhatl , P, Phi ] 
elseif <nargin>=8) , [thml, yhatl, P, Phi] 
end; 

tl=cputime? waitbar ( 1/nt) ; 


rarx ( z (1 , : ) , nn, adm, adg) ; 
rarx(z (1, : ) ,nn,adm,adg, thmO) ; 
rarx(z (1, : ) ,nn,adm,adg, thm0,P0) ; 
rarx ( z ( 1 , : ) , nn, adm, adg, thmO , PO , PhiO ) ; 


% allocate some memory for the remaining segments 
thm =zeros (nt , length (thml )) ; thm ( 1 , : ) =thml ; 
yhat =zeros (nt , length (yhatl) ) ; yhat ( 1 , : ) =yhatl ; 


% loop over remaining segments 
num = 1 ; 
mag = 2 ; 
did = 1; 

while (did < nt) , 

% adaptively adjust the length of the segments to approximate tmax 
if (mag>l) , 

if (tl-t0<tmax) , 

num = num * mag; 
else, 

num = max (1, floor {num*tmax/ (tl-tO+eps) )) ; 
mag = 1 ; 

end; 

end; 

% do the next segment 
num = min(nt-did,num); 
tO=cputime; 

[thml, yhatl , P, Phi] = rarx(z (did+ (1 :num> , : ) ,nn, adm, adg, thml (size (thml, 1) , : ) , P, Phi) ; 
tl=cputime ; 

% store the results in our outputs 

thm(did+ (1 :num) , : ) =thml; yhat (did+ (1 :num) , : ) =yhatl; 
did = did + num; 
waitbar (did/nt) ; 

end; 

waitbar(l); close (h); 
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9.0 APPENDIX B: ABSTRACTS RELATED TO Jf^-BASED IDENTIFICATION 


A table of many of the papers related to // TO -based system identification is given below, along 
with source and abstract for each paper. The Notes column contains a code, reflecting the applica- 
bility of the paper to the work in this study, and sometimes a brief note on the contents or useful- 
ness of the given paper. The applicability code is a number (in [0,10]; 10 denotes greatest 
applicability) and a letter (A and a mean high applicability, and D or (d) little or no applicability; 
uppercase denotes that the paper comes from one of the principle authors in H^-based system 
identification: Gu, Khargonekar, Helmicki, Jacobson, Nett, Partington, or Makila). 


a 

Authors Title Source 

Abstract 

Notes 

l 

V.M. Adamjan, D.Z. Arov, and M.G. Krein, 
1971. “Analytic Properties of Schmidt 
Pairs for a Hankel Operator and the Gener- 
alized Schur-Takagi Problem.” Mathemat- 
ics of the USSR - Sbomik, 15( 1 ), Sept. 
1971, 31-73 (Russian original Tom 
86(128)). 

This article is a study of infinite Hankel matrices and approximation problems 
connected with them. 

9a 

2 

H. Ak$ay, G. Gu, and P.P. Khargonekar, 
1992. “Identification in with Nonuni- 

formly Spaced Frequency Response Mea- 
surements” 1992 American Control 
Conference , Chicago, Illinois, June 24-26, 
1992. Proceedings (American Automatic 
Control Council, Evanston, Illinois), 246- 
250. 

In this paper, the problem of “system identification in HJ' is investigated in the 
case when the given frequency response data is not necessarily on a uniformly 
spaced grid of frequencies. A large class of robustly convergent identification 
algorithms are derived. 

7B 

non-uni- 
formly- 
spaced fre- 
quencies 

3 

H. Akgay, G. Gu, and P.P. Khargonekar, 
1993. “A Class of Algorithms for Identifi- 
cation in H„ \ Continuous -Time Case.” 
IEEE Transactions on Automatic Control , 
38(2), Feb. 1993, 289-294. 

In this note, the problem of system identification in H «, for the continue us -time 
case is investigated. It is shown that the class of systems with a lower bound on 
the relative stability, an upper bound on the steady state gain, and an upper bound 
on the roll-off rate is admissible. This allows one to develop a class of robustly 
convergent nonlinear algorithms. The algorithms in this class have a two-stage 
structure, and are characterized by the use of window functions. Explicit worst- 
case error bounds in norm between the identified model and the unknown sys- 

tem are given for a particular algorithm. Finally, an example is provided to illus- 
trate the application of the results obtained. 

7B 

continuous 

time 

4 

T. C. P. M. 
Backx 
and A. A. H. 
Damen 

Identifica- 
tion for the 
Control of 
MIMO 
Industrial 
Processes. 

IEEE Trans- 
actions on 
Automatic 
Control , 
37(7), July 
1992, 980- 
986. 

A procedure for the identification of industrial processes with the intention of con- 
trol system design is proposed, discussed, and illustrated by an application to a 
full-scale production process. The various identification steps are motivated, 
keeping industrial applicability of the procedure in mind. The MIMO model set 
used is the common denominator form or minimum polynomial form. Parameter 
estimation is performed in several steps, thus adapting to estimation and control 
requirements. As an indicative example of practical results obtained, the identifi- 
cation and control of a quartz tube glass process is described. 

Od 

5 

A. Bahri and A.J. Helmicki, 1995. 
Identification-Based Robust Control Sys- 
tem Design.” 1995 American Control Con- 
ference , Seattle, Washington, June 21-23, 
1995. Proceedings (American Automatic 
Control Council, Evanston, Illinois), 3556- 
3561. 

In this paper the interaction between identification and robust control 

design problems is studied. An iterative solution for the coupled H„ identification 
and control problems is proposed, which involves pre-filtering the plant data. 
Some conditions on the pre-filter to permit convergence are derived. The use of 
pre-filtering is shown to significantly reduce the number of experiments required 
at successive iterations. 

3C 

6 

E.-W. Bai and M.S. Andersland, 1994. 
“Stochastic and Worst Case System Identi- 
fication Are Not Necessarily Incompatible.” 
Automatica, 30(9), Sept. 1994, 1491-1493. 

Stochastic and worst case approaches to system identification are different and are 
usually treated separately. In this communique we investigate the effect that a pro- 
jection operator has on the worst case behavior of estimates derived by stochastic 
identification algorithms. We show that under certain assumptions the projections 
of the stochastic estimates are convergent in the worst case setting. We illustrate 
this result by applying it to least squares and maximum likelihood algorithms. 

6b 

relation 
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case ID 

7 

E.-W. Bai and S. Raman, 1994. “Robust 
System Identification with Noisy Experi- 
mental Data: Projection Operator and Lin- 
ear Algorithms.” Automatica , 30(7), July 
1994, 1203-1206. 

In this paper we consider the problem of robust system identification with noisy 
time or frequency response measurement data. It is shown here that any linear 
identification algorithm which is convergent in the noise free case can be made 
robustly convergent in the presence of noise by incorporating a simple projection 
operator into the algorithm. The computation simplicity and faster rate of conver- 
gence distinguish this approach from other existing robustly convergent nonlinear 
identification techniques. 
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A Criterion 
for Joint 
Optimiza- 
tion of Iden- 
tification and 
Robust Con- 
trol. 


IEEE Trans- 
actions on 
Automatic 
Control , 
37(7), July 
1992, 986- 
991. 


Abstract 


A criterion for system identification is developed which is consistent with the Od 
intended use of the fitted model for modem robust control synthesis. Specifically, integrated 
a joint optimization problem is posed which simultaneously determines the plant ID/Control 
model estimate and control design, so as to optimize robust performance over the design 
set of plants consistent with a specified experimental data set. 


J. Chen, G. Gu, and C.N. Nett, 1993. 
“Worst Case Identification of Continuous 
Time Systems via Interpolation.” 1993 
American Control Conference , San Fran- 
cisco, California, June 2-4, 1993. Proceed- 
ings (American Automatic Control Council, 
Evanston, Illinois), 1544-1548. 


10 J. Chen, G. Gu, and C.N. Nett, 1994. 
‘Worst Case Identification of Continuous 
Time Systems via Interpolation.” Automat- 
ical 30(12), Dec. 1994, 1825-1837. 



Worst Case 
System Iden- 
tification in 
H Valida- 
tion of Apri- 
ori 

Information, 

Essentially 

Optimal 

Algorithms, 

and Error 

Bounds 


1992 Ameri- 
can Control 
Conference , 
Chicago, Illi- 
nois, June 
24-26, 

1992. Pro- 
ceedings 
(American 
Automatic 
Control 
Council, 
Evanston, 
Illinois), 251- 
257. 


We consider a worse case control oriented identification problem recently studied 
by several authors. This problem is one of the H„ identification in the continuous 
time setting. We give a less conservative formulation of this problem. The avail- 
able a priori information consists of a lower bound on the relative stability of the 
plant, a frequency dependent upper bound on a certain gain associated with the 
plant, and an upper bound on the noise level. The available experimental informa- 
tion consists of a finite number of noisy plant point frequency response samples. 
The objective is to identify from the given a priori and experimental information 
an uncertain model that includes a stable nominal plant model and a bound on the 
modeling error measured in norm. Our main contributions include both a new 
identification algorithm and several new explicit lower and upper bounds on the 
identification error. The algorithm proposed belongs to the class of interpolator 
algorithms which are known to posses a desirable optimality property under a cer- 
tain criterion. The error bounds presented improve upon the previously available 
ones in both the aspects of providing a more accurate estimate of the identification 
error as well as establishing a faster convergence rate for the proposed algorithm. 


A suboptimal identification algorithm and several improved bounds for identifica 
tion error are developed based upon the Nevanlinna-Pick interpolation procedure 
for a worst case H „ identification problem in the continuous time setting. 

We consider a worst case robust control oriented identification problem 
recently studied by several authors. This problem is one of H « identification in 
the continuous time setting. We give a more general formulation of this problem. 
The available a priori information in this paper consists of a lower bound on the 
relative stability of the plant, a frequency dependent upper bound on a certain gain 
associated with the plant, and an upper bound on the noise level. The available 
experimental information consists of a finite number of noisy plant point fre- 
quency response samples. The objective is to identify, from the given a priori and 
experimental information, an uncertain model that includes a stable nominal plant 
model and a bound on the modeling error measured in norm. Our main contri- 
butions include both a new identification algorithm and several new ‘explicit’ 
lower and upper bounds on the identification error. The proposed algorithm 
belongs to the class of ‘interpolatory algorithms’ which are known to posses a 
desirable optimality property under a certain criterion. The error bounds pre- 
sented improve upon the previously available ones in the aspects of both providing 
a more accurate estimate of the identification error as well as establishing a faster 
convergence rate for the proposed algorithm. 


This paper is concerned with a particular control-oriented system identification 
problem recently considered by several authors. This problem has been referred 
to as the problem of worst-case system identification in in the literature. The 
formulation of this problem is worst-case/deterministic in nature. The available 
apriori information consists of a lower bound on the relative stability of the plant, 
an upper bound on a certain gain associated with the plant, and an upper bound on 
the noise level. The available aposteriori information consists of a finite number 
of noisy plant point frequency response samples. The objective is to identify the 
plant transfer function in H „ using the available apriori and aposteriori informa- 
tion. In this paper we resolve several important open issues pertaining to this 
problem. First, a method is presented for developing confidence that the available 
apriori information is correct. This method requires the solution of a certain non- 
differentiable convex programming problem. This algorithm is (worst-case 
strongly) optimal to within a factor of two. Finally, new upper and lower bounds 
on the optimal identification error for this problem are derived and used to esti- 
mate the identification error associated with the algorithm presented here. Inter- 
estingly, the development of each of the results described above draws heavily 
upon the classical Nevanlinna-Pick optimal interpolation theory. As such, the 
results of this paper establish a clear link between the areas of system identifica- 
tion and optimal interpolation theory. 
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12 

J. Chen, 

C. N. Nett, 
and 

M. K. H. Fan 

Optimal 
Non- Para- 
metric Sys- 
tem 

Identifica- 
tion From 
Arbitrary 
Corrupt 
Finite Time 
Series: A 
Control-Ori- 
ented 
Approach. 

1992 Ameri- 
can Control 
Conference , 
Chicago, Illi- 
nois, June 
24-26, 

1992. Pro- 
ceedings 
(American 
Automatic 
Control 
Council, 
Evanston, 
Illinois), 279- 
285. 

In this paper we formulate and solve a control-oriented system identification prob- 
lem for single-input, single-output, linear, shift-invariant, distributed parameter 
plants. In this problem the available apriori information is minimal, consisting 
only of worst-case/deterministic, time dependent, upper and lower bounds on the 
plant impulse response and the additive output noise. The available aposteriori 
information consists of a corrupt finite output time series obtained in response to a 
known, non-zero but otherwise arbitrary, applied input. A novel system identifica- 
tion method is presented for this problem. This method maps the available aprior 
and aposteriori information into and “uncertain model” of the plant. The resulting 
uncertain plant model is comprised of a nominal plant model, a bounded additive 
output noise, and a bounded additive model uncertainty. The upper bound on the 
model uncertainty is explicit, worst-case/deterministic in nature, and expressed in 
terms of both the / } and //^system norms. Under the assumption that the available 
apriori information is “correct” for the underlying physical plant, the resulting 
uncertain plant model has the property that it not only “explains” the available 
aposteriori information, but will also explain all aposteriori information observed 
in the future. Because this property hinges on the correctness of the available apri- 
ori information, a method is also presented for developing confidence that the 
available apriori information is in fact correct. Both the method for building con- 
fidence in the correctness of the available apriori information and the method for 
identifying the uncertain plant model are quite simple computationally, requiring 
only the solution of a single linear programming problem. Nonetheless, these 
methods can be shown to have certain well-defined, physically meaningful opti- 
mality properties. These optimality properties make clear that several aspects of 
the methods can not be significantly improved upon. Finally, two special cases of 
the general methods which arise often in applications are considered in detail. In 
the first case the applied input is an impulse function, and in the second case the 
applied input is a step function. For these special cases the relevant linear pro- 
grams are solved explicitly, and additional optimality results are established. 

3C 

13 

J. Chen, 

C. N. Nett, 
and 

M. K. H. Fan 

Worst Case 
System Iden- 
tification in 
H„: Valida- 
tion of a Pri- 
ori 

Information, 

Essentially 

Optimal 

Algorithms, 

and Error 

Bounds 

IEEE Trans- 
actions on 
Automatic 
Control , 
40(7), July 
1995, 1260- 
1265. 

In this paper we resolve several important open issues pertaining to a worst-case 
control-oriented system identification problem known as identification in H„. 
First, a method is presented for developing confidence that certain a priori infor- 
mation available for identification is not invalid. This method requires the solu- 
tion of a certain nondifferentiabie convex program. Second, an essentially optimal 
identification algorithm is constructed. This algorithm is (worst-case strongly) 
optimal to within a factor of two. Finally, new upper and lower bounds on the 
optimal identification error are derived and used to estimate the identification error 
associated with the given algorithm. Interestingly, the development of each of 
these results draws heavily upon the classical Nevanlinna-Pick interpolation the- 
ory. As such, our results establish a clear link between the areas of system identi- 
fication and optimal interpolation theory. Both the formulation and techniques in 
this paper are applicable to problems where the frequency data available for iden- 
tification may essentially be arbitrarily distributed. 

5B 
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14 J. Chen and S. Wang, 1995. “New Time- We discuss several issues pertaining to a time-domain problem. These issues 3C 
Domain Algorithms for H x Identification.” are centered at an inherent trade-on between algorithm optimality and model as 
1995 American Control Conference t Seat- well as computational complexity. We provide a number of simple “nearly” inter- 
tle, Washington, June 21-23, 1995. Pro- polatory algorithms which may be employed to lessen somewhat the computa- 
ceedings (American Automatic Control tional complexity and for constructing a lower order model. 

Council, Evanston, Illinois), 1976-1980. 

15 R. Y. Chiang, System Iden- 1993 Ameri- This paper documents a robust control design experiment in a technology demon- Od 

Y. Yam, tification and can Control stration for Advanced Recon figurable Control (ARC). The objective of the exper- integrated 

E. Mettler, H ^ Synthe- Conference , iment is to develop an integrated identification and robust synthesis methodology ID/control; 

D. S. Bayard, sis for a Non- San Fran - for vibration suppression of large space structures. The overall methodology has same test- 
A. Ahmed, Collocated cisco , Cali- been partially implemented and evaluated on a complex flexible structure experi- bed as ana- 

and Space Struc- fomia, June ment at JPL. The identification approach is based on a recent frequency domain lyzed with 

F. Y. Hadaegh ture Control 2-4, 1993. method which estimates both a state space model and an additive uncertainty //^IDby 

Experiment Proceedings weighting for robust control Design (Bayard and Yam, “Freq. domain ID for Friedman 

(American robust control design” Modeling of Uncertainty in Control Systems, Smith and and Khar- 

Automatic Doyle, eds.. Springer- Verlag, in press). The control part is based on a novel H^f gonekar 

Control H « approach with a hierarchical MIMO inner/outer loop design structure. This (1995) 

Council, case study indicates that the integrated design methodology provides an effective 

Evanston, approach to developing vibration controllers for large space structures, or related 

Illinois), applications involving plants of commensurate complexity. 

3033-3037. 

16 H. Dai and Robust Iden- IEE Proceed - A robust method is employed to identify the unknown parameters of both linear Od 

N. K. Sinha tification of ings-D Con- and bilinear systems. Using block-pulse functions, this method expands the sys- 

Systems trol Theory tern input and output utilising an approach that minimises a robust criterion to 

Using Block- and Applica- reduce the effect of noise, especially large errors (called outliers) on the expansion 

Pulse Func- tions , coefficients. These coefficients are then used to obtain robust estimates of param- 

tions. 139(3), May eters. A Theorem showing convergence of this method is included. Simulation 

1992, 308- results provided in this paper demonstrate robustness and convergence of the pro- 

316. posed robust method. It can be concluded that this method is superior to the non- 

robust version in the presence of noise, especially outliers. 
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H. Dai and 
N. K. Sinha 

A Robust 
Off-Line 
Output Error 
Method for 
System Iden- 
tification. 

IEEE Trans- 
actions on 
Industrial 
Electronics , 
39(4), Aug. 
1992, P285- 
292. 

In this paper, the “model reference” technique and Huber’s minimax principle 
have been successfully used to develop an off-line output error method for robust 
identification of systems. This method is named the robust iterative output error 
method with modified residuals. A convergence analysis of the proposed method 
has been included as well as some simulation results. In the presence of a small 
number of large errors (called outliers) in the input-output data, the presented 
method has demonstrated its distinctive advantages over not only the nonrobust 
methods but also previously developed robust methods. The main advantages are 
a fast convergence speed and satisfactory robustness. It can be concluded that the 
method developed in this paper is much superior to the other methods and there- 
fore can be widely used in many real-time applications. 

Od 

18 

G. Didinsky, Z. Pan, and T. Basar, 1995. 
“Parameter Identification for Uncertain 
Plants using H « Methods.” Automatica , 
31(9), Sept. 1995, 1227-1250. 

We demonstrate the effective use of filtering and cost-to-come methods for 

parameter identification in (deterministic) uncertain plants that are linear in the 
unknown parameters, but nonlinear otherwise. The cost-to-come method is an 
approach that has been used earlier to solve linear and nonlinear optimal con- 

trol and filtering problems. It consists of constructing a cost-to-come function, 
which assists in the design of an ’optimal’ observer scheme. The method is used 
here in the design of a parameter identification scheme for uncertain plants, where 
measurements on the state of the system are available, but not on its derivative. 
Two approaches are adopted, in both of which the parameter estimation problem is 
formulated as an filtering problem. One of the approaches uses a more stan- 

dard prefiltering of the past states, input and disturbance signals. The other 
approach is a novel design method, which leads to a new class of identification 
schemes. It involves two subproblems: FSDI (full-state-derivative information) 
problem, where it is assumed that both the state and its derivative are available to 
the parameter estimator, and NPFSI (noise-perturbed FSI) problem, where the 
estimator is assumed to measure a noise-perturbed measurement of the state. In 
the latter problem we use singular perturbation methods to prove asymptotic con- 
vergence of the performance of the identifier to that of the unperturbed case, thus 
providing an asymptotically optimal solution to the FSI (full-state measurement) 
problem. To illustrate both approaches, several simulation studies on a numerical 
example are provided. 
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B. Franke 

Optimal 

1993 Ante ri- 

This paper deals with consecutive (open-loop) identification and (closed-loop) 

Od 


and 

Identifica- 

can Control 

control of a linear, time-invariant SISO process. The partition of a fixed total time 



P. LOhnberg 

tion Time for 

Conference , 

between identification and control is optimised according to and LQ criterion. For 



Control 

San Fran- 

a static gain process, an analytical expression for the optimal identification time as 





cisco, Cali- 

a function of the a priori parameter mean and variance is derived. For an integra- 





fomia, June 

tor process, the optimal identification time obtained from simulations is approxi- 





2-4, 1993. 

mated by an analytical formula. Both procedures are applied on-line by replacing 





Proceedings 

the a priori statistics by their estimates. Finding an analytical expression for 





(American 

higher order processes appeared infeasible. Therefore, for a static gain process, at 





Automatic 

each sampling instant, the predicted cost for continuing identification is compared 





Control 

to the predicted cost for starting control. This procedure is expected to be applica- 





Council, 

Evanston, 

Illinois), 

1549-1553 

ble for dynamical systems of high order. 



20 J.H. Friedman, 1996. “Identification, Mod- Two important components in control design arc the model development prior to 10A 
eling, and Control of Flexible Structures.” control design and the performance analysts after the design is complete. Model 
Ph.D. dissertation, Department of Aero- development generally falls into two categories: (1) first principles modeling 
space Engineering, University of Michigan, based on the physics of the individual components of a system; and (2) system 
Ann Arbor, Michigan, 1996. identification based on experimental data. The problem of performance analysis 

can be quite broad, ranging from the step response of a system to the computation 
of system norms. In this dissertation we address problems from both of these 
fields of research. 

The modeling work presented in this dissertation includes both first princi- 
ples and experimental modeling. We develop a first principles model of the 
dynamics of an Ml/Ml A 1 tank as a motivational example and a simulation test- 
bed on which we demonstrate the identification and control analysis tools devel- 
oped in this dissertation. In the field of identification there are a number of 
methods available to engineers. Among these methods, the algorithms for solving 
the problem of identification in H have received much attention recently. The 
focus of the attention has been to develop the theoretical properties of the algo- 
rithms; however, less attention has been paid to the engineering applications of the 
algorithms. It is this practical application which is the primary focus of our work 
in system identification. This dissertation includes results on the key issues in 
engineering applications of the two-stage nonlinear algorithms, a step-by-step rec- 
ipe for the selection of the design parameters, and heuristic rules for successful 
applications. 

In the area of performance analysis, we examine the computation of the 
worst-case and average H ^ norm of a family of linear systems with constant real 
parametric uncertainty. It is shown that when the system matrices depend affinely 
on real uncertain parameters, any quadratic performance index will be a rational 
function of these parameters. Using this fact, in the case of a single real parame- 
ter, the computation of the worst -case H \ norm is quite similar to the computation 
of the norm of an auxiliary system and the average performance becomes the 
integral of a rational function. Several examples are included to illustrate the util- 
ity of these results. 
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J.H. Friedman and P.P. Khargonekar, 

1995a. “A Comparative Applications Study 
of Frequency Domain Identification Tech- 
niques” 1995 American Control Confer- 
ence , Seattle, Washington, June 21-23, 
1995. Proceedings (American Automatic 
Control Council, Evanston, Illinois), 3055- 
3059. 

In this paper, we compare the results of the following frequency identification 
algorithms: Sanathanan and Koemer (SK) algorithm, nonlinear least squares via 
Levenberg-Marquardt method, and the two-stage nonlinear algorithm. We also 
present a recipe for the application of the two-stage nonlinear algorithm. The 
emphasis of this paper is on the application and comparison of fie algorithms 
developed in the literature to three case studies. 
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22 

J.H. Friedman and P.P. Khargonekar, 
1995b. “Application of Identification in 
to Lightly Damped Systems: two case 
studies.” IEEE Transactions on Control 
Systems Technology , 3(3), Sept. 1995, 279- 
289. 

This paper presents an approach to the frequency domain identification of lightly 
damped systems. It is based on the recent work in the area of identification in H„. 
The emphasis of this paper is on the application of the algorithms developed in the 
literature to two case studies. Results show that the algorithms for identification in 
H„ are capable of producing good models for highly flexible systems. 
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23 

G. C. Good- 
win, 

M. Gevers, 
and 

B. Ninness 

Quantifying 
the Error in 
Estimated 
Transfer 
Functions 
with Applica- 
tion to 

Model Order 
Selection. 

IEEE Trans- 
actions on 
Automatic 
Control , 
37(7), July 
1992,913- 
928. 

Previous results on estimating errors or error bounds on identified transfer func- 
tions have relied upon prior assumptions about the noise and the unmodeled 
dynamics. This prior information took the form of parameterized bounding func- 
tions or parameterized probability density functions, in the time or frequency 
domain with known parameters. Here we show that fie parameters that quantify 
this prior information can themselves be estimated from the data using a maxi- 
mum likelihood technique. This significantly reduces the prior information 
required to estimate transfer function error bounds. We illustrate the usefulness of 
the method with a number of simulation examples. The paper concludes by show- 
ing how the obtained error bounds can be used for intelligent model order selec- 
tion that takes into account both measurement noise and under-modeling. Another 
simulation study compares our method to Akaike’s well-known FPE and AIC cri- 
teria. 
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G. Gu 

Suboptimal 
Algorithms 
for Worst 
Case Identifi- 
cation in 
and Model 
Validation 

IEEE Trans - 
actions on 
Automatic 
Control, 
39(8), Aug. 
1994, 1657- 
1661. 

New algorithms based on convex programming are proposed for worst case sys- 
tem identification. The algorithms are optimal with a factor of two asymptotically. 
Further, model validation, or data consistency, is embedded in the identification 
process. Explicit worst case identification error bounds in the norm are also 

derived for both uniformly and nonuniformly spaced frequency response samples. 
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more sub- 
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25 

G. Gu, C.-C. Chu, and G. Kim, 1994. “Lin- 
ear Algorithms for Worst Case Identifica- 
tion in H„ with Applications to Flexible 
Structures” 1994 American Control Con- 
ference, Baltimore, Maryland, June 29 - 
July 1, 1994. Proceedings (American 
Automatic Control Council, Evanston, Illi- 
nois), 112-116. 

This paper is concerned with linear algorithms for identification in which have 

been studied in (Helmicki, Jacobson, and Nett, 1993. “Identification in H„. linear 
algorithms ” IEEE Transactions on Automatic Control , 38, May 1993, 819-826). 
It is shown that the two different linear algorithms in (ibid.) can be unified into a 
single one which can be further extended to nonuniformly spaced frequency 
response samples with exponential convergence for the noise free case. Improved 
upper bounds for the corresponding identification errors are derived. Applications 
to the identification of lightly damped systems such as flexible structures are also 
considered. 

6B 

26 

G. Gu and P.P. Khargonekar, 1991. “Linear 
and Nonlinear Algorithms for Identification 
in with Error Bounds.” 1991 American 
Control Conference , Boston, Massachu- 
setts, June 26-28, 1991. Proceedings 
(American Automatic Control Council, 
Green Valley, Arizona), 64-69. 

In this paper, a linear and a nonlinear algorithm are presented for the problem of 
system “identification in H„," posed by Helmicki, Jacobson, and Nett. We derive 
some error bounds for the linear algorithm which indicate that if the model error is 
not too high, then this algorithm has good guaranteed error properties. The linear 
algorithm requires only FFT (fast Fourier transform) computations. A nonlinear 
algorithm, which requires an additional step of solving a Nehari best approxima- 
tion problem, is also presented that has the robust convergence property. 

10A 

27 

G. Gu and P.P. Khargonekar, 1992a. “A 
Class of Algorithms for Identification in 
Automation , 28(2), March 1992, 299- 

312. 

In this paper, a class of algorithms for the problem of system identification in H„ 
are investigated. These algorithms are characterized by a two-stage structure and 
involve a class of window functions. Some conditions in terms of properties of the 
window functions are derived, which guarantee robust convergence of the algo- 
rithms. Identification errors are analyzed for several common window functions. 
This leads to some insights into the trade-off between the error induced by approx- 
imation and that due to noise. 
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example 

28 

G. Gu and P.P. Khargonekar, 1992b. “Lin- 
ear and Nonlinear Algorithms for Identifi- 
cation in H oo with Error Bounds.” IEEE 
Transactions on Automatic Control , 37(7), 
July 1992, 953-963. 

In this paper, a linear algorithm and a nonlinear algorithm are presented for the 
problem of “system identification in //*,,” posed by Helmicki, Jacobson, and Nett 
for discrete-time systems. We derive some error bounds for the linear algorithm 
which indicate that it is not robustly convergent. However, the worst-case identifi- 
cation error is shown to grow as log(n) where n is the model order. A new robustly 
convergent nonlinear algorithm is derived, and bounds on the worst-case identifi- 
cation error (in the H M norm) are obtained. 
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good expla- 
nation of 
basic ID 
algorithm; 
good ana- 
lytical 
example 

29 

G. Gu and P.P. Khargonekar, 1993. “Fre- 
quency Domain Identification of Lightly 
Damped Systems: The JPL Example.” 
1993 American Control Conference , San 
Francisco, California, June 2-4, 1993. Pro- 
ceedings (American Automatic Control 
Council, Evanston, Illinois), 3052-3056. 

This paper describes application of the recent work on “identification in HJ' to 
the data for a JPL flexible space structure. 

10A 

practical 

example 
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# Authors Title Source Abstract 

30" G. Gu, PP Khargonekar, and E.B. Lee, Approximation of in finite -dimensional system models was studied using a Fourier 

1989. “Approximation of Infinite Dimen- transform technique. Convergence conditions were established and a frequency 

sional Systems.” IEEE Transactions on response error bound in terms of th e norm derived. The approximate model 

Automatic Control , 34(6), June 1989, 610- can be directly computed using an FFT type algorithm. Examples illustrate the 
618. method. 

"JT G. Gu and Identifica- IEE Proceed- A unified approach is developed for identification of linear time-invariant systems. 

P. Misra. tion of Linear ings-D Con- It is shown that, given the experimental frequency-response data of the system, the 

Time-Invari- trol Theory plant can be identified using a simple, numerically reliable algorithm. Further, an 

ant Systems andApplica- error bound is derived for exponentially stable systems when the frequency- 

From Fre- tions, response data are corrupted by bounded noise. An example is presented to illus- 

quency- 139(2), trate the proposed algorithm. 

Response March 1992, 

Data Cor- 135-140. 

rupted By 
Bounded 

Noise. 

"32" A.J. Helmicki, C.A. Jacobson, and C.N. In this paper several techniques are given for the identification of stable LSI dis- 
Nett, 1989. Identification of Stable LSI crete time systems from input-output data. Explicit H « norm error bounds are 
Systems: A Scheme with Direct Applica- given and convergence in the noise free and the uniformly bounded deterministic 
tion to Controller Design.” 1989 American noise case are established. The assumptions made on the unknown system are 
Control Conference , Pittsburgh, Pennsylva- minimal and are limited throughout the paper to a lower bound on the decay rate 
nia, June 21-23, 1989. Proceedings (Amer- of the unknown system and an upper bound on the gain of the unknown system, 
ican Automatic Control Council, Green Given this information an experiment and a construction are specified: the experi- 

Valley, Arizona), 1428-1434. ment involves obtaining a specified number of frequency measurements of the 

unknown systems at a set of specified frequencies; the construction uses this 
experimental data to generate an identified model with prescribed H « norm error 
tolerance to the unknown system. The resulting model identification process is 
high ly efficient from a computational point of view. 

“33~ A.J. Helmicki, C. A. Jacobson, and C.N. In this paper a system identification technique is developed which is compatible 

Nett, 1990a. “Identification in H ^ A with current robust controller design methodologies. This technique is applicable 

Robustly Convergent, Nonlinear Algo- to a broad class of stable, distributed, linear, shift-invariant systems. The informa- 

rithm.” 1990 American Control Conference , tion necessary for the application of this technique consists of a priori estimates on 
San Diego, California, May 23-25, 1990. the relative stability and “steady state” gain of the unknown system together with a 

Proceedings (American Automatic Control finite number of possibly corrupt frequency response estimates. Given this infor- 
Council, Green Valley, Arizona), 386-39 1 . mation an algorithm is specified which yields both an identified model and explicit 

H„ norm error bounds. Several interesting properties of this algorithm are also 
discussed. Among them, the fact the algorithm is a nonlinear function of the fre- 
quency response data, and that it is robustly convergent with respect to the a prior 
information on relative stability and gain are singled out as characteristics which 
distinguish this algorithm from ot her currently under development by the authors 

34 A.J. Helmicki, C.A. Jacobson, and C.N. 

Nett, 1990b. “Identification in H„. The 
Continuous-Time Case.” 1990 American 
Control Conference , San Diego, California, 

May 23-25, 1990. Proceedings (American 
Automatic Control Council, Green Valley, 

Arizona), 1893-1898. ___ 

" 35 " A.J. Helmicki, C.A. Jacobson, and C.N. In this paper a series of system identification techniques are developed which are 
Nett, 1990c. “Identification in H Linear compatible with current robust controller design methodologies. These tech- 
Algorithms” 1990 American Control Con- niques are applicable to a broad class of stable, distributed, linear, shift- invariant 
ference , San Diego, California, May 23-25, systems. The information necessary for their application consists of a priori esti- 

1990. Proceedings (American Automatic mates on the relative stability and “steady state gain” of the unknown system 

Control Council, Green Valley, Arizona), together with a finite number of possibly corrupt frequency response samples. 

2418-2423. Given this information the algorithms established yield both identified models and 

explicit norm error bounds. These algorithms are developed as extensions of a 
recently proposed polynomial interpolation approach to //*, identification which is 
shown here to diverge in the face of corrupted data. The fact that these algorithms 
are linear functions of the frequency response data and depend explicitly on the a 
priori information are singled out as characteristics which distinguish them from 
other algorithms recently established by the authors. 
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36 A J. Helmicki, C.A. Jacobson, and C.N. This paper examines the system identification problem from the standpoint of con- 

Nett, 1991a. “Fundamentals of Control- trol system design. Noting first that nearly all robust control design methods 

Oriented System Identification and Their require explicit worst-case/deterministic bounds on the existing plant uncertainty, 
Application for Identification in H„.” 1991 it is argued that the class of system identification methods which are inherently 
American Control Conference , Boston, compatible with robust control design methods — or control -oriented — is a sub- 
Massachusetts, June 26-28, 1991. Proceed- set of the class of system identification methods which yield and explicit worst- 
ings (American Automatic Control Council, case/deterministic bound on the resulting identification error. An abstract theoret- 
Green Valley, Arizona), 89-99. ical framework for control-oriented system identification is then developed. This 

framework is inherently worst-case/deterministic in nature, and makes precise 
such notions as identification error, algorithm convergence, and algorithm opti- 
mality from a worst-case/deterministic standpoint. Finally, the abstract theoretical 
framework is utilized to formulate and solve two related control -oriented system 
identification problems for stable, linear shift invariant, distributed parameter 
plants. In each of these problems the assumed a priori information is minimal, 
consisting only of a lower bound on the relative stability of the plant, an upper 
bound on a certain gain associated with the plant, and an upper bound on the noise 
level. In neither case are any assumptions made concerning the structure of either 
the plant (i.e., dynamic order, relative order, etc.) or the noise (i.e., zero-mean, 
etc ). The first of these problems involves identification of a point sample of the 
plant frequency response from a noisy, finite, output time series obtained in 
response to an applied sinusoidal input with frequency corresponding to the fre- 
quency point of interest. This problem leads naturally to the second problem, 
which involves identification of the plant transfer function in H „ from a finite 
number of noisy point samples of the plant frequency response. Robust conver- 
gent, (essentially) asymptotically optimal plans of identification algorithms are 
provided for each of these two problems. The plans provided for the second prob- 
lem yield and explicit worst-case/deterministic bound on the fl^-norm of the 
resulting identification error at each step of the plan. As such, the identification 
methods obtained by combining the given plans for the two problems are well- 
suited for use in conjunction with currently popular robust control design 
methods, and hence may be regarded as being inherently control-oriented. 

~yT A.J. Helmicki, C.A. Jacobson, and C.N. In this paper we formulate and solve two related control-oriented system identifi- 

Nett, 1991b. “Control Oriented System cation problems for stable linear shift-invariant distributed parameter plants. In 

Identification: A Worst-Case Deterministic each of these problems the assumed a priori information is minimal, consisting 

Approach in IEEE Transactions on only of a lower bound on the relative stability of the plant, an upper bound on a 

Automatic Control , 36( 10), Oct. 1991 , certain gain associated with the plant, and and upper bound on the noise level. In 

1163-1176. neither case are any assumptions made concerning the structure of either the plant 

(i.e., dynamic order, relative order, etc.) or the noise (i.e., zero-mean, etc.). The 
first of these problems involves identification of a point sample of the plant fre- 
quency response from a noisy finite output time series obtained in response to an 
applied sinusoidal input with frequency corresponding to the frequency point of 
interest. This problem leads naturally to the second problem, which involves iden- 
tification of the plant transfer function in //„ from a finite number of noisy point 
samples of the plant frequency response. Concrete plans of identification algo- 
rithms are provided for each of these two problems. Explicit worst-case/determin- 
istic error bounds are provided for each algorithm in these plans. These bounds 
establish that the given plans of algorithms are robustly convergent and (essen- 
tially) asymptotically optimal. Additionally, these bounds provide an a priori 
computable H„ uncertainty specification, corresponding to the resulting identified 
plant transfer function, as an explicit function of the plant a priori information, 
noise a priori information, and experiment duration. As such, the approach to sys- 
tem identification developed in this paper is well-suited for use in conjunction 
with currently popular robust control design methods, and for this reason may 
be regarded as being inherently control-oriented. 

38 A.J. Helmicki, C.A. Jacobson, and C.N. In this note, recent results obtained by the authors for worst-case/deterministic H 
Nett, 1992. “Worst-Case Deterministic identification of discrete-time plants are extended to continuous -time plants. The 
Identification in H M : The Continuous-Time problem considered involves identification of the transfer function of a stable 
Case.” IEEE Transactions on Automatic strictly proper continuous -time plant from a finite number of noisy point samples 
Control 37(5), May 1992, 604-610. of the plant frequency response. The assumed a priori information consists of a 

lower bound on the relative stability of the plant, an upper bound on a certain gain 
associated with the plant, an upper bound on the “roll-off rate” of the plant, and an 
upper bound on the noise level. Concrete plans of identification algorithms are 
provided for this problem. Explicit worst-case/deterministic error bounds are pro- 
vided for each algorithm in these plans. These bounds establish that the given 
plans of algorithms are robustly convergent and (essentially) asymptotically opti- 
mal. Additionally, these bounds provide an a priori computable uncertainty 
specification, corresponding to the resulting identified plant transfer function, as 
an explicit function of the plant and noise a priori information and the data cardi- 
nality. 
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tem Identification for Robust Control 
Design.” IEEE Transactions on Automatic 
Control , 37(7), July 1992, 899. 


45 


R. L. Kosut, 
M. K. Lau, 
and 

S. P. Boyd 
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Systems 
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IEEE Trans- 
actions on 
Automatic 
Control , 
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1992, 929- 
941. 


Abstract 

Notes 

This paper presents a series of system identification algorithms that yield identi- 
fied models which are compatible with current robust controller design methodol- 
ogies. These algorithms are applicable to a broad class of stable, distributed, 
linear, shift-invariant plants. The a priori information necessary for their applica- 
tion consists of a lower bound on the relative stability of the unknown plant, an 
upper bound on a certain gain associated with the unknown plant, and an upper 
bound on the noise level. The a posteriori data information consists of a finite 
number of noise point frequency response estimates of the unknown plant. The 
specific contributions of this paper are to examine the extent to which certain stan- 
dard Hilbert space or least squares methods are applicable to the system iden- 

tification problem considered. Results are established that connect the W 2 error of 
the least square methods to the H„ error needed for control-oriented system iden- 
tification. In addition, the notion of a posteriori error bounds is introduced and 
used to establish sequentially optimal or adaptive algorithms based on these Hil- 
bert space approaches. 

6B 



This note presents a series of system identification algorithms that yield identified 
models which are compatible with current robust controller design methodologies. 
These algorithms are applicable to a broad class of stable, distributed, linear, shift- 
invariant plants. The a priori information necessary for their application consists 
of a lower bound on the relative stability of the unknown plant, an upper bound on 
a certain gain associated with the unknown plant, and an upper bound on the noise 
level. The a posteriori data information consists of a finite number of corrupted 
point frequency response estimates of the unknown plant. The specific contribu- 
tions of this note are to examine the extent to which certain standard Hilbert space 
or least squares methods are applicable to the //«* system identification problem 
considered. Results are established that connect the W 2 error of the least squares 
methods to the error needed for control-oriented system identification. 

5B 

A reliable quality estimate of a given model is a prerequisite for any reasonable 
use of the model. The model error consists of two different contributions: the bias 
error and the random error In this contribution, we show how the size (variance) 
of the random error can be reliably estimated in the case where a true system 
description cannot be achieved in the model structure used. This consistent error 
estimate can differ considerably from the conventionally used variance estimates 
which thus, could be quite misleading. 

Od 

This paper presents an analysis of H « system identification where the apriori 
information given on the unknown system to be identified is described probabilis- 
tically. The H „ system identification problem concerns the construction of a lin- 
ear shift invariant exponentially stable system from a combination of apriori and 
experimental information. The goal is to construct both a nominal system and an 
explicit quantification of model uncertainty in the H„ norm utilizing the apriori 
and experimental information. The experimental information assumed available 
in this paper is a set of corrupted point frequency estimates of the unknown sys- 
tem. The apriori information consists of a probability measure specifying the 
probability of bounds on the norm of the derivative of the unknown system. The 
problem formulation is given for this probabilistic setting with the error criterion 
allowing a probabilistic tolerance of identification to be given. It is shown that the 
probabilistic H„ problem is equivalent to a worst case problem that is constructed 
from the probabilistic one. This construction allows near optimal algorithms to be 
constructed for the probabilistic H„ identification problem. 

7B 

combines 
probabilis- 
tic a priori 
bounds with 
Woo ID 

The maximum-likelihood estimation of the parameters of linear systems and the 
properties of the estimator (Estimator for Linear Systems, ELiS) have been 
described in a paper by R. Pintelon and J. Schoukens ("Robust identification of 
transfer functions in s- and z-domain," IEEE Transactions on Instrumentation and 
Measurement, 39, Aug. 1990, 565-573). The mathematics used in the develop- 
ment of the method and the proofs are rather involved. However, several state- 
ments can be understood in heuristic terms. 

This paper discusses the complex-domain description of the method, which 
results in much simpler expressions. The method is also compared to other forma- 
tions, giving more insight into the properties of the estimate. It turns out that 
robustness is at least partly due to the least-squares formulation. 

Derivations are avoided where possible, and intuitive explanations are given 
instead. 

Od 

complex- 
domain 
description 
of the maxi- 
mum-likeli- 
hood ID 
method 

Introduction to the special issue. 

2c 

some over- 
all com- 
ments 

A method is presented for parameter set estimation where the system model is 
assumed to contain both parametric and nonparametric uncertainty. In the distur- 
bance-free case, the parameter set estimate is guaranteed to contain the parameter 
set of the true plant. In the presence of stochastic disturbances, the parameter set 
estimate obtained from finite data records is shown to have the property that it 
contains the true-plant parameter set with probability one as the data length tends 
to infinity. 
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37(7), July 
1992, 994- 
1000 . 


47 P.M. MakiUi, 1991a. “Laguerre Methods 
and Identification of Continuous-Time 
Systems.” International Journal of Control, 
53(3), March 1991, 689-707. 



48 P M. MakilS On Identifi- Automatica , 
cation of Sta- 27(4), July 
ble Systems 1991, 663- 
and Optimal 676. 
Approxima- 
tion. 



49 P. M. M&kila Identmca- Intema- 

tion of Stabi- tional Jour - 
lizable nal of 

Systems: Control , 

Closed-Loop 54(3), Sept. 
Approxima- 1991,577- 


50 P.M. Makila, 1991b. “Robust Identification 
and Galois Sequences.” International Jour- 
nal of Control 54(5), Nov. 1991, 1189- 
1200. 


51 P.M. Makila, 1992. “Worst-Case Input- 
Output Identification ” International Jour- 
nal of Control 56(3), Sept. 1992, 673-689. 


52 P.M. Makila, 1993. "Robust Approximate 
Modeling from Noisy Point Evaluations.” 
1993 American Control Conference , San 
Francisco, California, June 2-4, 1993. Pro- 
ceedings (American Automatic Control 
Council, Evanston, Illinois), 1554-1560. 


Abstract 

Notes 

This note compares the formulation and solution of two linear parameter estima- 
tion problems. The basic distinction in the problem formulations is the nature of 
the uncertainty. In one case, the uncertainty is generated by white Gaussian noise, 
and the solution is the Kalman filter. In the other case, the uncertainty is unmod- 
eled dynamics in the unit ball in or its nonlinear cover, and the particular solu- 
tion studied here is a deterministic robust estimator which was introduced circa 
1987. 

This note examines certain parallels between classical stochastic estimation 
(Kalman filtering) and the deterministic robust estimation. The similarities and 
differences are discussed in geometric terms, in philosophical terms, and in terms 
of the estimator’s recursive implementation. 

5B 

H ^ identification of stable continuous-time systems is studied using generalized 
Laguerre series methods. The theoretical basis of generalized Laguerre series 
methods in H„ identification is established by giving several results on frequency- 
unweighted and frequency -weighted approximations of different classes of infinite 
dimensional systems. An identification technique based on step response data 

and Laguerre methods is given and analysed. Generalized Laguerre series meth- 
ods are shown to provide H„ identification techniques which allow for frequency 
weighting. Furthermore, it is demonstrated that the theory of generalized 
Laguerre polynomials solves certain approximation problems in an analytical 
fashion for a class of delay systems. 

8B 

good intro 
and com- 
ments on 
continuous- 
time ID 

Approximative modelling of stable continuous-time, possibly infinite dimen- 
sional, systems is studied based on an optimal approximation approach. Both 
approximation of analytical system representations (system approximation) as 
well as approximation of input-output data based system estimates (system identi- 
fication) are considered. While special emphasis is given to approximative model- 
ling in the and Hankel norms, the li and norm cases are also discussed. The 
model sets considered here are finite aimensional systems and time shift systems 
(simple delay systems). The theory of approximation numbers is shown to pro- 
vide a convenient tool to study problems of identification of stable continuous- 
time systems in a deterministic framework with close connections to complexity 
considerations. Laguerre-Fourier series methods and Hankel operator techniques 
can be utilized to develop fully practical identification methods for continuous- 
time, possibly infinite dimensional, systems. 

7B 

Approximate modelling and identification of linear shift-invariant, possibly unsta- 
ble, discrete-time systems, or plants, is studied in a framework compatible with 
the so-called robust stability concept for feedback systems. This unified frame- 
work is based on approximate modelling of the plant in the gap and graph metrics 
which is achieved here through approximation of certain closed-loop transfer 
functions by finite-dimensional systems. Properties of this approximate inverse 
modelling approach are studied and concrete rate of approximation results are 
given. Furthermore, a consistency result in the gap and graph metrics is given for 
a certain experimental estimate of the plant constructed from closed-loop input- 
output data in a stationary noise set-up under mild conditions on the unknown 
plant. 

OC 

Worst-case /j identification is studied for BIBO stable linear shift-invariant sys- 
tems. It is shown that the Chebyshev identification method when used with Galois 
input designs satisfies a certain robust convergence property and provides l\ model 
error bounds in worst-case identification of BIBO stable systems with a uniformly 
bounded noise set-up. The robust identification methodology developed is com- 
patible with the modelling requirements of modem robust control design. 

4B 

/j identifi- 
cation 

We consider worst-case / t identification of causal linear shift-invariant systems 
from time series. Many results are given on general aspects of identification algo- 
rithm performance, existence of optimal algorithms, robust convergence, and 
input (experiment) design. The identification methodology studied here is com- 
patible with the modelling requirements of modem robust control design. 

3C 

l\ identifi- 
cation 

We consider approximate modeling of stable linear shift-invariant systems in the 
H „ sense from approximate point evaluations at approximately known frequen- 
cies. TWo error structures for the point evaluations are studied: pointwise 

bounded error and a certain error averaging structure. A main motivation for the 
present work comes from currently active research problems concerning modeling 
for robust control design from experimental data. 

Several results are given on various aspects of approximation algorithm per- 
formance, and on robust convergence. A constrained least absolute deviations 
method based on minimizing the value of the error averaging prior subject to a 
modeling prior restricting the complexity of the behaviour of the model is pro- 
posed. This linear programming method is a strongly optimal algorithm within 
factor two with respect to the model and error priors used in its construction. 
Relationships between problems of identification of nominal models and uncer- 
tainty modeling are studied. 
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Abstract 


Robust Approximation and identification of stable shift-invariant systems is stud- 7B 
ied in the sense using a stable perturbation set-up. Issues of model set selec- 
tion are addressed using the n -width concept: a concrete result establishes a priori 
knowledge for which a certain rational model set is optimal in the n-width sense. 

A general construction of interest to identification theory using e -nets provides 
near-optimal identification methods tuned to the a priori knowledge about the sys- 
tem. 

A notion of robust convergence is defined so that any untuned identification 
method satisfying it has a generic well-posedness property for systems in the disk 
algebra. The existence of robustly convergent identification methods based on any 
complete model set in the disk algebra is established. It is also shown that the 
classical Fejdr and de la Vall6e-Poussin polynomial approximation operators pro- 
vide robustly convergent identification methods. Furthermore, a result is given for 
optimal Hankel norm model reduction from experimentally obtained models. 


This paper studies identification of linear shift-invariant systems from closed -loop 6B 
time series. Identification (or modelling) error is measured here by distance func- 
tions which lead to the weakest convergence notions for systems such that closed- 
loop stability, in the sense of BIBO stability, is a robust property. Thus the identi- 
fication methodology developed here is compatible with the requirements of 
robust control design under /^-stable coprime factor uncertainty. Worst-case iden- 
tification error bounds in several distance functions are included. 


For strongly stabilizable systems for which a strongly stabilizing controller is 7B 
known approximately, we consider system identification in the graph, gap, and some good 
chordal metrics using robust identification of the closed-loop transfer function intro mate- 
in the framework proposed by Helmicki, Jacobson, and Nett. Error bounds are rial 
derived showing that robust convergence is guaranteed and that the identification 
can be satisfactorily combined with a model reduction step. Two notions of robust 
identification of stable systems are compared, and an alternative robust identifica- 
tion technique based on smoothing, which can be used to yield polynomial models 
directly, is developed. 


This paper studies robust stabilization of both linear shift-invariant causal systems 
in an l p setting and linear time -invariant causal continuous-time systems in an LP 
( p = \ or oo ) setting. Two key technical results in the paper establish the exist- 
ence of l p and LP stable normalized coprime factorizations for discrete-time and 
continuous-time systems, respectively, which have coprime factorizations as l p 
and Lp stable operators. Several distance measures for systems are then intro- 
duced including the graph metric, the p function, the gap between the graphs of 
the systems, and the projection gap. It is shown that these distance measures lead 
to the weakest convergence notions for systems for which closed-loop stability is a 
robust property. The p function can be computed using the Dahleh- Pearson the 
ory for /i ( L 1 ) optimal control. 

Robustness optimization in a directed p function is shown to be closely 
related to robustness optimization for BIBO stable normalized coprime factor per- 
turbations. This result connects the stability margin of Dahleh for coprime factor 
perturbations to the p function. These considerations are further supported by a 
robustness result in terms of the projection gap. 


Robust approximation and worst-case approximate modelling of stable shift- 
invariant systems from corrupted transfer function estimates are studied in the H ^ 
sense. Connections between the problem formulations of the present work and 
certain problems of worst-case system identification, notably the Helmicki-Jacob- 
son-Nett problem formulation for identification in are established. Issues of 
model set selection are addressed using the /i-width concept: a concrete result 
establishes a priori knowledge for which a certain rational model set is optimal in 
the n -width sense. A notion of robust conveigence is defined so that any untuned 
approximation method satisfying it has a generic well-posedness property for sys- 
tems in the disk algebra. The existence of robustly convergent approximation 
methods based on any complete model set in the disk algebra is shown in a con- 
structive way. A framework is given in which approximate models can be 
obtained as stable perturbations of the true system: these can be combined with the 
classical Fejdr and de la Vall6e- Poussin polynomial approximation operators to 
provide robustly convergent approximation methods. Furthermore, concrete 
results are given for the fundamental problem of model reduction from corrupted 
transfer function estimates or from experimentally obtained models for the opti- 
mal Hankel norm approximation method and for a least squares method. 


During the past five years or so, several new research topics have emerged around 9A 
issues of modelling of systems from data for the purpose of robust control design, excellent. 
These new topics include, among other things, identification in //«*,, identification though 
in /[, and model validation of uncertainty models. very brief. 

This paper introduces the reader to several recent developments in worst- summary 
case identification motivated by various issues of modelling of systems from data of //« and 
for the purpose of robust control design. Many aspects of identification in H M and l\ identifi- 
/j are covered including algorithms, convergence and divergence results, worst- cation 
case estimation of uncertainty models, model validation and control relevancy 
issues. 
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Abstract 


A linear multichannel estimation problem with discrete-time linear shift-invariant Od 
models is formulated in the time domain as a minimum /] norm approximation 
problem. It is shown, using some key results from optimization theory, that solv- 
ing the approximation problem is equivalent to solving a sequence of linear pro- 
gramming problems which terminates when an optimal or near-optimal solution is 
reached. The motivation for considering an /i -optimal design versus l 2 or H„- 
optimal designs is presented. An example problem is solved to illustrate the com- 
putational procedure as well as to provide an opportunity to compare the relative 
performances of the /], / 2 , and //^-optimal estimators in a practical situation. 


In this paper we consider the problems of filtering and smoothing for linear sys- 
tems in an H-infinity setting, i.e., the plant and measurement noises have bounded 
energies (are in L2), but are otherwise arbitrary. Two distinct situations for the ini- 
tial condition of the system are considered: in one case the initial condition is 
assumed known, while in the other case, the initial condition is not known but the 
initial condition, the plant, and measurement noise are in some weighted ball of 
R(n) x L2. Both finite-horizon and infinite-horizon cases are considered. We 
present necessary and sufficient conditions for the existence of estimators (both 
filters and smoothers) that achieve a prescribed performance bound, develop algo- 
rithms that result in performance within the bounds. In case of smoothers, we also 
present the optimal smoother. The approach uses basic quadratic optimization 
theory in time-domain setting, as a consequence of which both linear time- varying 
and time-invariant systems can be considered with equal ease. (In the smoothing 
problem, for linear time-varying systems, we consider only the finite-horizon 
case). 


(no abstract) 


Given a stable, discrete time, single input single output system G(z) , but with 4b 
only the input signal and the noise corrupted output signal available for measure- 
ment, we seek to find an approximation G(z) — a finite impulse response (FIR) 
filter — with |G-6-J = sup \GieJ*) - 6(W*)[, 6e(-x,x] bounded and small. The 
infinity norm has application in control theory and signal processing; furthermore, 
it is a measure of the deviation in frequency response between G and G . Several 
previous papers, attempt to identify G(z) in the frequency domain; these papers 
fail to bound G - G in any norm. 

Central to our method of identification is interpolation. First one estimates 
accurately G(z) at n equally spaced frequencies. Here, n is a design parameter 
one may freely choose. This estimation relics on filtering the input and output sig- 
nals appropriately. Then estimates of G(ei 2xk/n ) come from a bank of n/2 
decoupled least mean squares algorithms, each of two parameters; G(z) is then 
the unique FIR filter of degree n - 1 with transfer function interpolating to these 
estimates. 6(z) is computationally easy to evaluate. 

The resulting error bound has the form [G- 6|U £ MR « + K ( 1 + log 2 n). Here 
M and R are constants, dependent on G(z) with R < 1 ; the accuracy of estimat- 
ing G(z) at the interpolation points determines K 
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ceedings (R. Isermann, ed., IFAC/Perfa- 
mon, Oxford, England, 1988), 358-363. 


64 J.R. Partington, 1991. “Robust Identifica- 
tion and Interpolation in //«* ” International 
Journal of Control, 54(5), Nov. 1991, 1281- 
1290. 




We consider system identification in H„ in the framework proposed by Helmicki, 10A 
Jacobson and Nett. An algorithm using the Jackson polynomials is proposed that good exam- 
achieves an exponential convergence rate for exponentially stable systems. It is pie (but too 
shown that this, and similar identification algorithms, can be successfully com- similar to 
bined with a model reduction procedure to produce low-order models. Connec- others for 
tions with the Nevanlinna-Pick interpolation problem are explored, and an use in 
algorithm is given in which the identified model interpolates the given noisy data, report) 
Some numerical results are provided for illustration. Finally, the case of 
unbounded random noise is discussed and it is shown that one can still obtain con- 
vergence with probability 1 under natural assumptions. 


65 J.R. Partington, 1992. “Robust Identifica- 
tion in Journal of Mathematical Anal- 

ysis and Applications, 166, 1992, 428-441. 


66 J.R. Partington, 1993. “Algorithms for 
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Journal of Control , 58(1), July 1993, 21-31. 



Worst-case identification in is considered in the situation in which corrupted 7B 
frequency response measurements are available at an arbitrary set of frequencies, modifica- 
Two new classes of algorithms are presented: one yields polynomial models tions so 
directly, the other is a two-stage algorithm producing rational models. Each has that the fre- 
improved convergence rates for the class of exponentially stable discrete-time sys- quency 
terns (with errors typically G(c) + G(AQ for arbitrarily large r , where e is the data may 
noise level and A is the maximum spacing between identification points). A be arbi- 
numerical example is given. trarily 

spaced 
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We consider worst-case analysis of system identification under less restrictive 
assumptions on the noise than the /«, bounded error condition. It is shown that the 
least-squares method has a robust convergence property in l 2 identification, but 
lacks a corresponding property in /| identification (as well as in all other non-Hil- 
bert space settings). The latter result is in stark contrast with typical results in 
asymptotic stochastic analysis of the least-squares method. Furthermore, it is 
shown that the Khintchine inequality is useful in the analysis of least l p identifica- 
tion methods. 


We consider worst-case analysis of system identification by means of the linear 
algorithms such as least -squares. We provide estimates for worst-case and aver- 
age errors, showing that worst-case robust convergence cannot occur in the /j 
identification problem. The case of periodic inputs is also analysed. Finally a 
pseudorandomness assumption is introduced that allows more powerful conver- 
gence results in a deterministic framework. 
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1992, 3001- 
3011. 


A frequency- domain maximum likelihood estimator (MLE) to estimate the trans- 
fer function of linear continuous-time systems has already been developed in [1]. 
It assumes independent Gaussian noise on both the input and the output coeffi- 
cients. In this paper, these results are extended to linear discrete-time systems. It 
is demonstrated that most of the properties of the estimator remain unchanged 
when it is applied to measured input and output Fourier coefficients corrupted 
with non-Gaussian errors. A robust Gaussian frequency-domain estimator results 
from this. It is very useful for the practical identification of linear systems. The 
theoretical results are verified by simulations and experiments. 


The minimum variance state estimation of linear discrete-time systems with ran- 
dom white noise input and partially noisy measurements is investigated. An 
observer of minimal order is found which attains the minimum-variance estima- 
tion error. The structure of this observer is shown to depend strongly on the geom- 
etry of the system. This geometry dictates the length of the delays that are applied 
on the measurements in order to obtain the optimal estimate. The transmission 
properties of the observer are investigated for systems that are left invertible, and 
free of measurement noise. An explicit expression is found for the transfer func- 
tion matrix of this observer, from which a simple solution to the linear discrete- 
time singular optimal filtering problem is obtained. 


System identification is the most demanding and time consuming step in the 
implementation of advanced control in the refining and petrochemical industries. 
As a result, control-relevant identification, which views the identification problem 
in terms of its impact on control system desip, is a topic that possesses significant 
practical importance. In this paper, we specifically examine the use of control-rel- 
evant prefiltering applied to parameter estimation using prediction -error meth- 
ods. The prefiltering step ensures that the estimated model retains those plant 
characteristics that are most significant with regards to the user’s control require- 
ments. We describe how to systematically build the prefilter in terms of the esti- 
mated model structure, the desired closed-loop speed-of-response, and the 
setpoint/disturbance characteristics of the control problem. Two implementation 
algorithms are presented which are applied to the plant data obtained from a distil- 
lation column. The results show that substantial improvements are obtained from 
control -relevant prefiltering in output error and partial least-squares estimation, 
while some caution must be exercised when applied to FIR and low-order ARX 
estimation. 


If approximate identification and model-based control design are used to accom- 
plish a high-performance control system, then the two procedures have to be 
treated as a joint problem. Solving this joint problem by means of separate identi- 
fication and control design procedures practically entails an iterative scheme. A 
frequency- response identification technique and a robust control design method 
are used to set up such an iterative scheme. Its utility is illustrated by an example. 


The properties of the minimum H ^- norm filtering estimation error are investi- Od 
gated, and the relation between the optimal estimator and the equalizing solution state esti- 
to the standard H ^- minimization problem is discussed. The optimal estimation mation in 
method is applied in the multivariable deconvolution problem. A simple deconvo- H ^ 
lution filter of minimum order is obtained which minimizes the 7/^-norm of the 
deconvolution error. The proposed methods of optimal estimation and deconvolu- 
tion are useful in cases where the statistics of the disturbance and the noise signals 
are not completely known, or in cases where it is required to minimize the maxi- 
mum singular value of the estimation, or the deconvolution, error spectrum. 
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Abstract 

Notes 

The optimal discrete-time state estimation of continuous-time processes whose 
measurements are corrupted by additive white noise is considered in the case 
where the measurements are prefiltered by an integrator between sampling times. 
A discrete- time equivalent model, in which the measurements are written as a 
function of the state vector at the same instant, is developed for the general case 
where the continuous-time measurement and process noise signals are correlated. 
The equations governing the optimal filter, which is based on the discrete-time 
equivalent model, are presented. The properties of this filter are investigated 
model, are presented. The properties of this filter are investigated, in the case of a 
short sampling period, by deriving the first coefficients of the Maclaurin’s expan- 
sions of the optimal gain and the error covariance matrices in powers of the sam- 
pling period. The obtained results are compared to the corresponding expressions 
that have been previously derived for the sampled-data regulator. 

Od 

This note addresses the question of a suitable “control-relevant identification” 
strategy for a class of long-range predictive controllers. It is shown that under cer- 
tain conditions the best process model for predictive control is that which is esti- 
mated using an identification objective function that is a dual of the control 
objective function. The resulting nonlinear least squares calculation is asymptoti- 
cally equal to a standard recursive least squares with an appropriate (model and 
controller-dependent) FIR data prefilter. Experimental results demonstrate the 
validity and practicality of the proposed estimation law. 

Od 

Modem robust control synthesis techniques aim at providing robustness with 
respect to uncertainty in the form of both additive noise and plant perturbations. 
On the other hand, the most popular system identification methods assume that all 
uncertainty is in the form of additive noise. This has hampered the application of 
robust control methods to practical problems. This paper begins to address the 
gap between the models used in control synthesis and those obtained from identi- 
fication experiments by considering the connection between uncertain models and 
data. The model validation problem addressed here is: given experimental data 
and a model with both additive noise and norm-bounded peituibations, is it possi- 
ble that the model could produce the observed input-output data. This problem is 
studied for the standard HJp. framework models. A necessary condition for such 
a model to describe an experimental datum is obtained. Furthermore, for a large 
class of models, in the robust control framework, this condition is computable as 
the solution of a quadratic optimization problem. 

5b 

good back- 
ground 

(no abstract) 

5c 

The problem of deriving so-called hard error bounds for estimated transfer func- 
tions is addressed. A turd bound is one that is sure to be satisfied, i.e., the true 
systems Nyquist plot will be confined with certainty to a given region, provided 
that the underlying assumptions are satisfied. By blending a priori knowledge and 
information obtained from measured data, we show how the uncertainty of trans- 
fer fimction estimates can be quantified. The emphasis is on errors due to model 
mismatch. The effects of unmodeled dynamics can be considered as bounded dis- 
turbances. Hence, techniques from set membership identification can be applied 
to this problem. The approach taken corresponds to weighted least-squares esti- 
mation, and provides hard frequency-domain transfer function error bounds. The 
main assumptions that are used in the current contribution are: that the measure- 
ment errors are bounded; that the true system is indeed linear with a certain degree 
of stability; and that there is some knowledge about the shape of the true fre- 
quency response. 

Od 

A variant on the balanced stochastic truncation (BST) method for approximate 
realization of power spectrum matrices is shown to form the basis for an identifi- 
cation procedure that is well-suited to the task of determining relative -error- 
bounded approximate plant models for use in control design from input-output 
cross correlation data. Central to the theory is a new /«*- norm bound on the rela- 
tive-error between an exact realization of the data and a BST approximate realiza- 
tion. 

Od 

Convex programming techniques is employed to solve the problem of system 
identification in H „ which was first formulated in (Helmicki, Jacobson, and Nett, 
IEEE Trans . Auto. Contr. , 36, 1991). A unique feature of this proposed identifica- 
tion algorithm is that it has a performance close to that of a Nevanlinna Pick inter- 
polation based algorithm as studied in (1,5] which is strongly optimal within a 
factor of two. An explicit bound is also derived for the worst case identification 
error measured in the norm. 

5B 
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Abstract 


A game theory approach is presented to optimal state estimation. It is found that 4b 
under certain conditions a min-max estimation is identical to the optimal estima- 
tion in the minimum 7/^- norm sense. These conditions are similar to those 
obtained in (Mintz, “A Kalman filter as minimax estimator”, J. Opt. Theory and 
Appl., 9, 1972, 99-1 1 1), where the relation between Kalman filtering and the min- 
max terminal state estimation has been explored. This new interpretation of the 
//^-optimal state estimation provides a better insight into the mechanism of //„- 
optimal filtering. 


A solution is derived to the two-degree-of-freedom //^-minimization problem that Od 
arises in the design of multivariable optimal continuous-time stochastic control 
systems. A decoupling approach is applied, which enables a partially independent 
design of the prefilter and the feedback controller and yields a simple solution to 
the optimization problem. This solution is obtained by transforming the optimiza- 
tion problem into two standard form (“four-block”) problems. 


The problem of recursive nondefinite least squares state estimation of continuous- 5b 
time stationary processes is solved, by applying variational calculus. A compari- 
son of the derived solution to the result that is obtained for the //^-minimum error 
estimation suggests a new interpretation for the //^-optimal estimation mecha- 
nism. According to this interpretation, the estimator tries to optimally estimate the 
required combination of the states, in the / 2 -norm sense, against the worst distur- 
bance signal that stems from a fictitious measurement of this combination. 


A possible game theory approach to optimal state estimation is presented. It is 4b 
found that in a certain differential game, the minimizer’s policy is identical to the 
one obtained by optimal estimation in the minimum //«*- norm sense. This inter- 
pretation of the //^-optimal state estimation provides a better insight into the 
mechanism of the //«- optimal filtering, especially, in the case where the exoge- 
nous signals a re not energy bounded. 

A game theory approach to the state-estimation of linear discrete-time systems is 4b 
presented. The resulting state estimation suggests an alternative to the Kalman fil- 
ter, in cases where the exact statistics of the input and the measurement noise pro- 
cesses is not known. It turns out that the game-theoretic filter provides an H„- 
optimal estimation. Moreover, it is shown that the covariance matrix of the esti- 
mation error is bounded, from above, by the solution of a modified Riccati equa- 



Estimates of £ -entropy and £ -dimension in the Kolmogorov sense are obtained 
for a class of causal, linear, time-invariant, continuous-time systems under the 
assumptions that impulse responses satisfy an exponential order condition 
|/(r)| £ Ce-*' , and frequency responses satisfy an attenuation condition 
|F0‘fi))| ^ Kar ] . The dependence of £ -entropy and £ -dimension on the accu- 
racy £ is characterized by order, type, and power indexes. Similar results for the 
discrete-time case are reviewed and compared. 
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